Lsitbox Einträge in Stringlist übertragen

[calculon]

Zitat von P4CM4N:

In meinem Programm lade ich per Button meine Listbox. Das sind Dateipfade. Die möchte ich jetzt in eine Stringlist übergeben. Nur wie macht man das?

Ich mach' das immer so:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject); 
Var 
   lstData: TStringlist; 
Begin 
   lstData := TStringlist.Create; 
   Try 
      lstData.Text := ListBox1.Items.Text;
   Finally 
      lstData.free; 
   End; 
End;

Geht das nicht auch ?

Gruß

Calculon
--

[marabu]

Moin.

Dass es funktioniert weißt du ja aus eigener Erfahrung. Allerdings werden die Items an der Quelle erst zu einem String (Text) zusammengesetzt um dann beim Ziel wieder zerlegt zu werden. Das ist etwa so, als ob du nur für einen Umzug dein ganzes Essbesteck zusammenlötest - um bei den schönen Bildern zu bleiben.

Grüße vom marabu

[s-off]

@Muetze - danke für Deine umfangreiche Erläuterung

Zitat von marabu:

Das ist etwa so, als ob du nur für einen Umzug dein ganzes Essbesteck zusammenlötest

Sehr schöner Vergleich

[SirThornberry]

lstData.Text := ListBox1.Items.Text; hat auch noch andere Nachteile.


In folgendem Beispiel aht Stringliste1 2 Items, durch die Zuweisung mit ".Text" hat StringListe2 dann aber 4 Items was natürlich zu Problemen führt wenn man die einzelnen Items später parsen will und die SubItems plötzlich eigenständig sind.

Delphi-Quellcode:

Stringliste1.Add('Info 0.1'#13#10'Info 0.2');
Stringliste1.Add('Info 1.1'#13#10'Info 1.2');

Stringliste2.Text := Stringliste1.Text;

[TBx]

und bei lstData.Text := ListBox1.Items.Text; werden die Objektreferenzen nicht mitgenommen.

Gruß

Thomas