Anstatt immer nur mit
Pos()
und
Delete()
zu arbeiten würde ich besser eine Funktion einsetzen die spezieller auf die Aufgabe zugeschnitten ist:
Delphi-Quellcode:
function StrToken(var S: string; Separator: Char): string; // kopiert aus der JCL
var
I: Integer;
begin
I := Pos(Separator, S);
if I <> 0 then
begin
Result := Copy(S, 1, I - 1);
Delete(S, 1, I);
end
else
begin
Result := S;
S := '';
end;
end;
Und dann:
Delphi-Quellcode:
s := ListBox2.Items[ListBox2.ItemIndex];
s_1 := StrToken(s, ','); // ID abtrennen
s_2 := StrToken(s, ','); // Headline abtrennen
Dieser Code ist wesentlich besser zu verstehen als die ganze Serie von Delete, Pos und Length.
Sollte in Zukunft ein ähnliches Problem anstehen, dann hast du gleich eine Funktion um es zu lösen.