Objektarray als Rückgabewert einer Funktion

[MarvinM]

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 ...