D2009 TStringlist ansistring

Question

ビジネスの穏やかな夏が始まったので、D2009への移行を手に入れました。プログラムのすべてのサブシステムをアスキーなままにする必要があるか、またはユニコードにすることができるかどうかを大まかに判断し、移植を開始しました。

すべてのコンポーネントはD2009バージョン（VSTViewのようなものもありますが少し互換性があります）にありましたが、今は問題に遭遇していますが、一部の部分ではansistringのままでなければなりません。基本的な地図。

すでに置き換えが容易なのですか？古いDelphiまたはFPCソースに基づいて、削除されたanstistring tstringlistを含めるだけですか？

私はこれに最初に遭遇したとは思いませんか？

変更は、ローカライズされていなければなりません。これにより、検証軌道を通過する間にコードがBDS2006でコンパイル可能な状態に維持されます。ここにいくつかのifdefは問題ありません。 もちろん、string-> ansistringとchar - > ansicharなどは、私のソースで変更したものとはみなされません。なぜなら、これはやっていなければならないからです。

編集：私は、リーダー/ライタークラスのいくつかを取り除くことができました。これは私が考えていたよりも簡単にメイソンの解決策になります。私はGabrの提案をフォールバックとして覚えています。

ジェネリックスは、私がD2009を購入した理由です。彼らがFPCと互換性を欠いてしまったのは残念です。

Answer 1

「マップ」によって「ハッシュテーブル」を意味する場合は、汎用のTDictionaryに置き換えることができます。

uses 
    Generics.Collections; 

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

次に、StringListsを正しいオブジェクトタイプのTStringMapsに置き換えてください。 （より安全な型安全性は自由に投げられます）また、辞書の所有者がオブジェクトを所有して終了するときにそのオブジェクトを解放したい場合は、それをTObjectDictionaryに変更し、コンストラクタを呼び出すときに[doOwnsValues]適切なパラメータ。

（あなたがTDictionaryを使用するつもりところで場合は、元のリリースは、それはほとんど使用不可とTDictionaryでいくつかの深刻なバグがあった3. D2009のアップデートをダウンロードしてください。）

EDIT：それはまだしなければならない場合D2006でコンパイルすると、少し修正する必要があります。

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

最初にマップとして使用する場合、ラッパーはあまりにも多くの作業を行うべきではありません。下位互換性と引き換えに余分な型の安全性を失いますが、O（1）時にルックアップを行う実際のハッシュテーブルが得られます。

Answer 2

これらのサブシステムは、ansistringのままでか、外界とのコミュニケーション（RS232、テキストファイルなど）を維持する必要がありますか？ C＃と同じように、Delphi 2009の文字列を単なる文字列として扱い、他の誰かが必要とするときにのみコンバージョンを心配します。

これは、コード内で意図しない暗黙的な変換や、Windows APIメソッドを呼び出すときにパフォーマンスが向上するのを防ぐのにも役立ちます。

Answer 3

Delphi 2007（またはそれ以前）のTStringsクラスとTStringListクラスを変更し、それらをTAnsiStringsおよびTAnsiStringListに名前を変更できます。あなたは非常に簡単な変更であることがわかります。それは必要なクラスを提供します。

Answer 4

JCLは、JclAnsiStringsユニットにTAnsiStringsとTAnsiStringListを実装しています。

Answer 5

TStringList.LoadFromFile/SaveToFileは、TStringListを使用して任意のタイプの文字列を格納できるようにする、TEncoding型のオプションのパラメーターを取ります。

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

はまた、それが持っているすべての既存のコードが動作するようにデフォルトでは、TStringListには、コードページとしてANSIを使用することに注意してください。