Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Listbox-Items in TStringlist kopieren


Visum - Do 11.07.02 17:05
Titel: Listbox-Items in TStringlist kopieren
Hi,
wahrscheinlich eine eher einfache Frage, aber ich komm nicht drauf:

Wie kann ich den Inhalt (die Items) einer Listbox in eine tStringList kopieren?

Danke
Visum


Arakis - Do 11.07.02 17:11

Hi user defined image,
hiermit sollte es funktionieren:


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
procedure TForm1.Button1Click(Sender: TObject);
var
  st: TStringList;
begin
  st:=TStringList.Create;
  st.AddStrings(self.ComboBox1.Items);
  st.Free;
end;


Bis dann
user defined image


Tino - Do 11.07.02 21:21

oder so

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
procedure TForm1.Button1Click(Sender: TObject); 
var 
 st: tStringList; 
begin 
 st := tStringList.Create; 
 st.Assign (ComboBox1.Items); 
 st.Free; 
end;