Ich habe jetzt angefangen ObjectLists hinzuzufügen und muss sagen, dass es bis jetzt wirklich einfacher ist! Allerdings habe ich immernoch ein kleines Problem: Gibt es irgendeinen Trick, wie man die Objekte in die Liste bekommt?
Bis jetzt geh ich so vor, allerdings bleibt die Liste nach dem Add-Befehl leer:
Die Deklaration der Liste:
Delphi-Quellcode:
unit uProductList;
interface
uses
Contnrs, uProduct;
type
TProductList =
class(TObjectList)
private
{ Private-Deklarationen }
public
end;
var
ProductList: TProductList;
implementation
uses
uDBAccess;
end.
und hinzufügen mit:
Delphi-Quellcode:
function TDBAccess.getPossibleProducts(): TProductList;
begin
result := TProductList.Create;
[...]
//In Result schreiben
aProduct := TProduct.Create(aName, aSize, aColor, aPrice);
result.Add(aProduct);
end;
end;
Danke für Eure Gedult!
PS: Und ja, das hier ist jetzt eine Liste mit Produkten und vorher hatte ich eine Liste mit Schülern; Und ich hab noch mehr von solchen Späßen ...
