So vielleicht:
Delphi-Quellcode:
TRecord = record
Data: string;
Data2: Integer;
end;
TTest = class(TObject)
private
FData: TList;
public
constructor Create;
destructor Detroy; override;
property: Data: TList read FData write FData;
procedure Add(Data: TRecord);
end;
constructor TTest.Create;
begin
inherited Create;
FList := TList.Create;
end;
destructor TTest.Destroy;
begin
FList.Free;
inherited Destroy;
end;
procedure TTest.Add(Data: TRecord);
begin
FData.Add(@Data);
end;
Quellcode ungetestet. Nur so runtergetippt. Auch die Speicherverwaltung der Records(new, dispose) fehlt noch. Sollte aber so ne Idee von dem geben, wie das aussehen könnte. BTW: Warum willst du eigentlich n Record nehmen? Warum nicht auch ne Klasse. Dann könntest du dir die Speicherverwaltung nämlich schenken(TObjectList, ggf. + Template).
mfg
Christian