Herauslösen eines Strings im string

[p80286]

Zitat von Ajintaro:

Die Funktionslösung von sx2008 hat mir auch sehr gut gefallen, das ist in der Tat besser als meine Delete-Serie. Allerdings bekomm ich dann ein Problem, wenn der Datensatz keine [HEADLINE] hat. Dann stürzt sich die Funktion auf das nächste Komma, nämlich auf den Satzzeichen und zerpflückt den Text

Wie das?

Delphi-Quellcode:

s := ListBox2.Items[ListBox2.ItemIndex];
s_1 := StrToken(s, '['); // ID abtrennen
s_2 := StrToken(s, ']'); // Headline abtrennen

(die eckige Klammer ist ja der Seperator(?))

Das sollte funktionieren.
Wenn "[HEADLINE]" nicht enthalten ist, dann
s=ListBox2.Items[ListBox2.ItemIndex]; und du kannst mit einem anderen Seperator weiter machen.

Gruß
K-H