Idee gesucht: Mehrere Daten mit Funktion zurückgeben

[Luckie]

So:

Delphi-Quellcode:

type
  TMyRec = record
    FName: ShortString;
  end;

  TMyRecArray = array[0..1] of TMyRec;


function FillMyRecArrays: TMyRecArray;
var
  MyRecArray: TMyRecArray;
  i: Integer;
begin
  for i := 0 to length(MyRecArray) - 1 do
  begin
    MyRecArray[i].FName := IntToStr(i);
  end;
  Result := MyRecArray;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyRecArray: TMyRecArray;
  i: Integer;
begin
  MyRecArray := FillMyRecArrays;
  for i := 0 to length(MyRecArray) - 1 do
    ShowMessage(MyRecArray[i].FName);
end;