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

Dann ab D6

Hallo,

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

Gruß
xaromz

Doch in D6 gibt es den Delimiter schon.

Grüße
Klaus

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

zusammenfalten · markieren

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;

Hi,

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