|
Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
Delphi 10.2 Tokyo Enterprise
|
Re: Alle Datenbanken einlesen
9. Jun 2004, 17:15
DIe Datenbank krigste mit
Code:
MyStringList := TStringList.Create;
try
Session.GetDatabaseNames(MyStringList);
{ Listenfeld mit Datenbanknamen füllen, damit der Benutzer auswählen kann }
ListBox1.Items := MyStringList;
finally
MyStringList.Free;
end;
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
|