Seit wann gibt es TStringList.Delimiter ?

[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;