Idee gesucht: Mehrere Daten mit Funktion zurückgeben

[Andreas L.]

Zitat von 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;

2 Fragen habe ich noch:
1. Kann TMyRecArray = array[0..1] of TMyRec; nur 2 Einträge beinhalten? Wie mache ich das er unendlich viele Einträge haben kann. Also ein dynamischer Array?
2. Wenn ich einen record definiere:

Delphi-Quellcode:

type 
tsomething = record;
 blubb: String[50];

Muss ich dann immer angeben wie viel Speicher reserviert werden soll (hier für 50 Zeichen)? Oder kann ich das auch weglassen um so beliebig lange Strings zu speichern?