Zweispaltige Stringlist

[glkgereon]

versuchs doch mal mit explode...

ich hatte dasselbe Problem auch mal, und hab einfach irgendeine Zeichenkombination dazwischen getan "#?#!#?#" oder so

dann immer mit explode rausgeholt.

wär auch einfach zu implementieren.

Delphi-Quellcode:

type
  TMySL = class(TStringList)
  public
    procedure Add2(I1, I2: String);
    procedure Set2(Index: Integer; I1, I2: String);
    procedure Get2(Index: Integer; var I1, I2: String);
    function IndexOf2(I1, I2: String):Integer;
  end;

const
  cSepVal = '#?#!#?#';

implementation

//explode...

procedure TMySL.Add2(I1,I2: String);
begin
  Add(I1+cSepVal+I2);
end;

procedure TMySL.Set2(Index: Integer; I1, I2: String);
begin
  if (Index<Count) and (Index>-1) then
    Strings[i]:=I1+cSepVal+I2;
end;

procedure TMySL.Get2(Index: Integer; var I1, I2: String);
var T: TStringDynArray;
begin
  if (Index<Count) and (Index>-1) then
    begin
    T:=Explode(cSepVal,Strings[i]);
    I1:=T[0];
    I2:=T[1];
    end;
end;

function TMySL.IndexOf2(I1, I2: String):Integer;
begin
  Result:=IndexOf(I1+cSepVal+I2);
end;