Danke das hat unter anderem auch noch gefehlt
Die DBSearch funktion sieht mittlerweile so aus
Delphi-Quellcode:
function TWorkstationSearch.DBSearch;
var
WsSearch: Model_Database.TWorkstationSearch;
Workstation: TWorkstation;
List: TList;
WsList: TObjectList;
I: Integer;
begin
I := 0;
List := TList.Create;
List := WsSearch.DBSearch();
while (I<List.Count) do
begin
Workstation := TWorkstation.Create(Integer(List[I]));
WsList.Add(Workstation);
Workstation.Destroy;
Inc(I);
end;
Result := WsList;
end;
Nun bringt er mir diesen Fehler
Zitat:
[Pascal Fehler] ViewController.pas(40): E2010 Inkompatible Typen: 'TWorkstation' und 'TObject'
Mir ist der Fehler schon bewusst, ich weiß allerdings nicht wie ich das jetzt löse. Ich kann ja nicht eine WsList: TWorkstationList anlegen...