Seit wann gibt es TStringList.Delimiter ?

[taaktaak]

Moin, Moin.
Kurze Frage : Seit welcher Version gibt es "TStringList.Delimiter" ich suche das in Delphi5 Prof vergeblich...
Gruß Ralph

[mkinzler]

Dann ab D6

[xaromz]

Hallo,

ich glaube, auch in D6 gibt's das noch nicht. Somit bliebe also D7.

Gruß
xaromz

[Klaus01]

Doch in D6 gibt es den Delimiter schon.

Grüße
Klaus

[Popov]

Ist kein Ersatz, aber so habe ich mir früher beholfen. Etwas aus meine Beispiele Kartei. Vielleicht kannst du damit etwas anfangen. Ist allerdings nur was für kleine Texte

Delphi-Quellcode:

function DelimTextToCommaText(sText: String; sDel: String): String;
begin
  with TStringList.Create do try
    while Length(sText) <> 0 do begin
      if Pos(sDel, sText) = 0 then sText := sText + sDel;
      Add(Trim(Copy(sText, 1, Pos(sDel, sText) - 1)));
      System.Delete(sText, 1, Pos(sDel, sText) + Length(sDel) - 1);
    end;
    Result := CommaText;
  finally Free end;
end; {Popov}

procedure TForm1.Button1Click(Sender: TObject);
var
  Text, Del: String;
begin
  Text := '254#*-#24#*-#250#*-#138#*-#186#*-#162#*-#190#*-#128';
  Del := '#*-#';
  //Text := '254 24 250 138 186 162 190 128';
  //Del := #32;
  //Text := '254;24;250;138;186;162;190;128';
  //Del := ';';
  ListBox1.Items.CommaText := DelimTextToCommaText(Text, Del);
end;

[Matze]

Hi,

in der Code-Library findet sich dazu auch etwas: Delimiter.