ListBox.Items.Add

[Nisbo]

Hoffe das ist dann die letzte Frage für heute ;)

ich lese aus einer Internetseite einen Text aus welcher sich dann im buffer befindet
aus dem buffer ersetze ich die
durch #13#10 so das die Ausgabe in einem Tmemo angezeigt werden kann, soweit kein Problem

jetzt möchte ich aber jede zeile auch als item in eine Listbox einfügen, momentan steht da logischerweise noch alles in einer zeile

Delphi-Quellcode:

galerieinhalt := StringReplace(buffer.DataString,'
',#13#10,[rfReplaceAll]);
verlauf.text  := verlauf.text + galerieinhalt + #13#10#;
ListBox1.Items.Add(galerieinhalt);

wie bekomme ich das jetzt genau hin das jede zeile ein Item wird ? ( ist durch
bzw #13#10 getrennt)

bei php wäre das ganze so erledigt:

PHP-Quellcode:

   $alle_werte = explode("
",$galerieinhalt);
   foreach($alle_werte as $einzel_wert){
      $ausgabe = $einzel_wert;
   }

[xineohp]

moin, müsste wie folgt gehen:

Delphi-Quellcode:

ListBox1.Items.AddStrings(Verlauf);
// oder ohne Verlauf
ListBox1.Items.Text := galerieinhalt;

[Pseudemys Nelsoni]

listbox1.Items.Text := verlauf.text;

[Nisbo]

ListBox1.Items.Text := galerieinhalt; war es
manche sachen sind ja so einfach :)

und ich habe gerade angefangen mit der function explode zu experimentieren

[Pr0g]

Zitat:

Zitat von Pseudemys Nelsoni

listbox1.Items.Text := verlauf.text;

Da könnte er ja sogar noch besser

Delphi-Quellcode:

listbox1.Items := verlauf.Lines;

machen.

MfG Pr0g

[Nisbo]

naja verlauf macht da nicht den sinn da es eine infobox für programmabläufe ist
aber habe die lösung ja schon

big thx nochmal