Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#14

AW: Herauslösen eines Strings im string

  Alt 28. Feb 2014, 17:03

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
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat