function ProjektsListe_SQL:TObjectList;
var qu : TQuery;
projekt : TProjekt;
//projekt : String;
projektlist : TObjectList;
begin
qu :=TQuery.Create(Application.MainForm);
qu.Databasename := 'INTRBASE2';
projektList:=TObjectList.Create(True);
with qu do begin
SQL.Clear;
SQL.Add('select * from projekts');
Open;
while not eof do begin
projekt:=TProjekt.Create;
projekt.ID :=FieldByName('projekt_ID').AsInteger;
projekt.NAME:=FieldByName('projekt_name').AsString;
//projekt.NAME:=FieldByName('projekt_name').AsString;
projekt.REST_TAETIG_ZAHL:=FieldByName('rest_taetig_zahl').AsInteger;
projekt.BESCHREIBUNG:=FieldByName('beschreibung').AsString;
projektList.Add(projekt);
next;
end;//while
result:=projektList;
close;
free;
end;//with
end;//function