Code: Alles auswählen
var
a: TStringlist;
...
begin
a := TStringlist.create();
try
a.commatext := 'PCNAME01,PCNAME02,PCNAME03';
combobox1.items.addstrings(a);
finally
a.free;
end;
....
end;
Code: Alles auswählen
var
a: TStringlist;
...
begin
a := TStringlist.create();
try
a.commatext := 'PCNAME01,PCNAME02,PCNAME03';
combobox1.items.addstrings(a);
finally
a.free;
end;
....
end;