Hallo,
Danke fuer die Antworten,
Ich habe nun auch die Liste und die Instanzen durch
List := TList.Create;
und
Workstation := TWorkstation.Create(List[I]);
erstellt.
Dennoch ändert das nichts am Problem. Dass ich die Instanz wieder freigebe liegt daran, dass in jeder Schleife eine neue Instanz angelegt werden soll, sodass in der Liste nicht öfter das gleiche Objekt zu finden ist. Vielleicht habe ich da aber auch ein Vorstellungsproblem. Soweit ist noch Workstation.Destroy mit eingebaut...
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(List[I]);
WsList.Add(Workstation);
Workstation.Destroy;
Inc(I);
end;
Result := WsList;
end;
Nun weiß ich nicht genau, wie ich diese Liste von Pointern casten kann, sodass in der Liste nur die Datenbank IDs stehen.
Würde mir jemand auf die Sprünge helfen ?
Danke
Mfg