Einzelnen Beitrag anzeigen

Benutzerbild von MarvinM
MarvinM

Registriert seit: 24. Jul 2006
94 Beiträge
 
#13

Re: Objektarray als Rückgabewert einer Funktion

  Alt 22. Nov 2008, 15:14
Ok:

Deklaration in der Unit, wo ich die Funktion aufrufe:

Delphi-Quellcode:
type
  Students = array of TStudent;
Aufruf der Methode:
Delphi-Quellcode:
procedure TTableView.getClick(Sender: TObject);
var
  StudentCount: Integer;
begin
  StudentCount := DBAccess.getAllEntries(Students); //Compilerfehler kommt hier

[...]
end;
Die Deklaration der Methode:
function getAllEntries(var Output: Students): Integer; Die Methode:
Delphi-Quellcode:
function TDBAccess.getAllEntries(Output: Students): Integer;
var
  StudentCount: Integer;
begin
  //StudentCount wird vorher ermittelt
  [...]
  //vorbereiten
  setLength(Output, StudentCount+1);

  for i := 1 to StudentCount do
  begin
    //SQL Qeuries die das Array füllen
    //z.B. Output[i].Name := SQLQuery.FieldbyName('Name').AsString;
     [...]
  end;

  result := length(Output);
end;
Deklaration des Arrays in der Unit, die den Datenbankzugriff durchführt:
Delphi-Quellcode:
type
  Students = array of TStudent;
Wenn Du nochirgendetwas brauchst, sag Bescheid.

PS: Welche Unit muss ich importieren, damit ich auf eine TObjectList verwenden kann?
Mfg Marvin

Carpe Diem! - Genieße den Tag! - [gr. Horaz]
> Meine Homepage - http://www.prettyprograms.de <
  Mit Zitat antworten Zitat