stringlist und betteradoset in nicht visueller unit

[etom291272]

Hallo zusammen

schreibe zur zeit an einem terminkalender über sql server und möchte bestimmte funktionen in eine eigene unit auslagern. zb soll eine kombobox der einzelnen user in einer nicht visuellen unit über eine funktion dir mir eine tstringlist übergibt befüllt werden der code hat auch in der visuellen unit problemlos funktioniert. was muss man beachten wenn man komponenten in nicht visuellen units (ohne form verwendet) :roll:

der funktionierende code in der visuellen form

Delphi-Quellcode:

CbBenutzer.Items.Clear; 
//Kombobox Benutzer laden 
AdoSetUser:=TBetterADODataSet.Create(Self); 
try 
with AdoSetUser do 
begin 
Connection:=FmPlannerPerson.AdoConTerminePerson; 
CommandText:='select * from Benutzer'; 
Active:=True; 
while not eof do 
begin 
CbBenutzer.Items.Add(Fieldbyname('US_NAME').AsString); 
Next; 
end; 
vUserName:=Lookup('US_ADRID',vIdUser,'US_NAME'); //Namen für Kombo ermitteln 
end //vUser Variant für Fall 
finally 
AdoSetUser.Active:=False; 
AdoSetUser.Free; 
end; 

// Kombobox auf richtigen User setzen 
for i := 0 to cbBenutzer.Items.Count - 1 do 
if cbBenutzer.Items[i] = vUserName then 
begin 
cbBenutzer.ItemIndex:=i 
end;

[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]

[etom291272]

habs hinbekommen trotzdem danke für euer hilfe