Herauslösen eines Strings im string

[sx2008]

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.