Ich verstehe denn Zweck des ganzen Brimboriums nicht. Warum nicht einfach eine generische Liste:
Delphi-Quellcode:
type
TMyTippOfDayRecord = record
Tipp: String;
Info: String;
constructor Create(const ATipp, AInfo: string);
end;
Type
TMyTippOfDay = TArray<TMyTippOfDayRecord>;
constructor TMyTippOfDayRecord.Create(const ATipp, AInfo: string);
begin
Tipp := ATipp;
Info := AInfo;
end;
function CreateTippOfDay: TMyTippOfDay;
var
List = TList<TMyTippOfDayRecord>;
begin
List := TList<TMyTippOfDayRecord>.Create;
try
List.Add(TMyTippOfDayRecord.Create('Bla 1', 'Hallo 1');
List.Add(TMyTippOfDayRecord.Create('Bla 2', 'Hallo 2');
List.Add(TMyTippOfDayRecord.Create('Bla 3', 'Hallo 3');
List.Add(TMyTippOfDayRecord.Create('Bla 4', 'Hallo 4');
Result := List.ToArray;
finally
List.Free;
end;
end;
Noch einfach geht es, wenn man statt des Arrays gleich ganz mit der Liste arbeitet.