D2009 TStringlist ansiktring

Question

Die geschäftliche Ruhe des Sommers hat begonnen, also habe ich die Migration auf D2009 aufgenommen. Ich habe grob für jedes Subsystem des Programms bestimmt, ob sie ascii bleiben oder Unicode sein und mit der Portierung beginnen sollen.

Es ging ziemlich gut, alle Komponenten waren dort in D2009-Versionen (einige, wie VSTView, etwas inkompatibel obwohl), aber ich habe jetzt ein Problem, in einigen Teil muss anisstring bleiben, verwende ich TStringList, meist als eine grundlegende Karte.

Gibt es schon etwas leicht zu ersetzen, oder sollte ich einfach eine Kürzung ansistring tstringlist, basierend auf alten Delphi oder FPC-Quelle?

Ich kann mir nicht vorstellen, dass ich der Erste bin, der darauf reinkommt?

Die Änderungen müssen relativ lokalisiert sein, damit der Code mit BDS2006 kompilierbar bleibt, während ich die Validierungskurve durchlaufe. Ein paar idefdefs hier und da sind kein Problem. Natürlich zählen string-> anisstring und char -> ansichar etc nicht als Modifikationen in meiner Quelle, da ich das sowieso machen muss, und es ist voll rückwärts compat.

Edit: Ich konnte einige der Dinge in Reader/Writer-Klassen wegarbeiten. Das macht Masons Lösung einfacher als ich ursprünglich dachte. Ich werde Gabrs Vorschlag als Fallback berücksichtigen.

Generika ist so ziemlich der Grund, warum ich D2009 gekauft habe. Schade, dass sie es in FPC inkompatibel gemacht haben

Answer 1

Wenn Sie unter "map" "Hashtabelle" verstehen, können Sie sie durch das generische TDictionary ersetzen. Versuchen Sie so etwas wie dies zu erklären:

uses 
    Generics.Collections; 

type 
    TStringMap<T: class> = TDictionary<ansiString, T>; 

Dann einfach Ihre Stringlisten mit TStringMaps des rechten Objekttypen ersetzen. (Bessere Typ-Sicherheit wird kostenlos eingeführt.) Wenn Sie möchten, dass das Wörterbuch die Objekte besitzt und sie freigibt, wenn Sie fertig sind, ändern Sie es in ein TObjectDictionary. Wenn Sie den Konstruktor aufrufen, übergeben Sie [doOwnsValues] an der geeignete Parameter.

(. BTW, wenn Sie TDictionary verwenden werden, stellen Sie sicher, dass Sie D2009-Update 3. Die ursprüngliche Version herunterladen einige schwere Fehler in TDictionary hatte, dass es fast unbrauchbar gemacht)

EDIT: Wenn es noch zu kompilieren Sie unter D2006, dann müssen Sie die Dinge ein wenig zwicken. so etwas wie dieses versuchen:

type 
    TStringMap = 
{$IFDEF UNICODE} 
    class TDictionary<ansiString, TObject> 
    (Add some basic wrapper functions here.) 
    end; 
{$ELSE} 
    TStringList; 
{$ENDIF} 

Der Wrapper sollte nicht zu viel Arbeit nehmen, wenn Sie es als eine Karte in erster Linie verwendet haben. Sie verlieren die Sicherheit des Extra-Typs als Gegenleistung für die Abwärtskompatibilität, aber Sie erhalten eine echte Hash-Tabelle, die ihre Lookups in O (1) -Zeit erledigt.

Answer 2

Müssen diese Subsysteme bleiben oder wie sie mit der Außenwelt kommunizieren (RS232, Textdateien, etc ...)? Genau wie bei C# behandle ich Strings in Delphi 2009 nur als Strings und sorge mich nur um Conversions, wenn jemand anders sie benötigt.

Dies wird auch dazu beitragen, unbeabsichtigte implizite Konvertierungen in Ihrem Code zu vermeiden und beim Aufrufen von Windows-API-Methoden die Leistung zu verbessern.

Answer 3

Sie können TStrings und TStringList-Klassen von Delphi 2007 (oder früher) ändern und in TAnsiStrings und TAnsiStringList umbenennen. Sie sollten feststellen, dass dies eine sehr einfache Modifikation ist, und dass Sie die Klassen erhalten, die Sie benötigen.

Answer 4

JCL implementiert TAnsiStrings und TAnsiStringList in der JclAnsiStrings-Einheit.

Answer 5

TStringList.LoadFromFile/SaveToFile nehmen Sie auch einen optionalen Parameter vom Typ TEncoding, mit dem Sie TStringList verwenden können, um jede Art von Zeichenfolge zu speichern, die Sie möchten.

procedure LoadFromFile(const FileName: string; Encoding: TEncoding); overload; virtual; 
procedure SaveToFile(const FileName: string; Encoding: TEncoding); overload; virtual; 

Beachten Sie auch, dass TStringList standardmäßig ANSI als Codepage verwendet, sodass der gesamte vorhandene Code so funktioniert wie er.