Hallo,
sogar die interne Zerlegung älterer StringList-Implementierungen erledigt das:
Delphi-Quellcode:
function ExtractField(const s: string; index: Integer): string;
begin
with TStringList.Create do
try
CommaText := s;
Result := Strings[index];
finally
Free;
end;
end;
procedure TDemoForm.ButtonClick(Sender: TObject);
begin
ShowMessage(ExtractField('D: { 59789999999999 { 555aaa666bbb777ccc }}', 4));
end;
Frohe Weihnachten