Vielleicht kannst du damit etwas anfangen, Anregungen holen, es eventuell anpassen:
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 := '#*-#';
ListBox1.Items.CommaText := DelimTextToCommaText(Text, Del);
end;
Es ist zwar nicht ganz das was du suchst, geschrieben habe ich es mal, weil es bei D3 TStringList kein DelimiterText gab. Zufällig zerlegt es einen String mit jedem Trennbegriff.