文字列型に2つのレコードヘルパーを使用できますか？

Question

私はstring型にいくつかのより多くの機能を追加するために、このヘルパーを作成しました：

type 
    AStringHelper = record helper for string 
    function Invert: string; overload; 
    function InvertMe: string; overload; 
    end; 

しかし、私は私のコードでそれを使用する場合、System.StrUtilsで​​は「アウトを取得」と私はそれの機能を使用することはできません。

両者を共存させることはできますか？

Answer 1

コード内の任意の1点で最大1人のヘルパーがアクティブになることができます。 documentationはこれを言う：

あなたは、単一の タイプで複数のヘルパーを定義して関連付けることができます。ただし、 ソースコード内の特定の場所には、0または1人のヘルパーしか適用されません。最も近いスコープの で定義されているヘルパーが適用されます。クラスまたはレコードのヘルパースコープは、通常のDelphiの方法で決定された です（たとえば、ユニットのuses節の右側にある ）。

レコードヘルパーは、継承をサポートしていないので、再実装標準ヘルパーの機能以外の標準的なヘルパーのと同時にアクティブあなたのヘルパーの機能の両方を持ってする方法はありません。これに

Answer 2

簡単な解決策は次のようになります。

type 
    TStr = record 
    private 
    FStr:string; 
    public 
    function Invert: string; overload; 
    function InvertMe: string; overload; 
    end; 

型キャストを使用することにより、通常のstring変数にTStr上の機能にアクセスすることができますし、我々はできる、

var 
    s1,s2:string; 
begin 
    s1:='123456'; 
    s2:=TStr(s1).invert; 
end; 

しかし、もちろんのなぜ普通の関数を書くのではないのですか？ :-)

とにかく、私はこれが好きです。class/object/record従来の関数/プロシージャよりもメソッド構文が優れています。

Answer 3

独自のクラスを作成しようとヘルパー

TMyString = type string; 
TMyStringHelper = record helper for TMyString 
    function Invert: TMyString; 
    function ToString: string; 
end; 

利用TMyString代わりの文字列。

標準のStringヘルパーを使用するには、TMyString変数をString（）でラップするか、ToStringメソッドを使用します。

var 
    S1: TMyString; 
    S2: String; 
begin 
    S1 := ' 123456 '; 
    S1.Invert; 
    S2 := String(S1).Trim; 
    S2 := S1.ToString.Trim; 
end;