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)
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]