items von listbox in set

[Kurt56]

Um alle vorhandenen Drucker in eine Listbox zu bekommen:

begin
listbox1.Clear;
listbox1.Items := Printer.printers;
end;

Orte in Listbox einfügen:

begin
listbox1.Clear;
ListBox1.Items.Add('Hannover');
ListBox1.Items.Add('Hamburg');
ListBox1.Items.Add('München');
ListBox1.Items.Add('Stuttgart');
end;


Um abzufragen, welche Zeile der Listbox selektiert ist und diese Zeile zu nutzen:

for i := 0 to listbox1.Count - 1 do
if listbox1.Selected[i] then
begin
edit2.Text:=listbox1.Items[i];
end;