Also im Prinzip funktioniert es wie es soll:
Delphi-Quellcode:
procedure TFMain.Button2Click(Sender: TObject);
var
r: raptorInfo;
h: aerie;
begin
r := raptorInfo.Create;
try
h := r.Hawks;
SetLength(h, 1);
h[0] := 'asd';
r.Hawks := h;
finally
r.Free;
end;
end;
Ist halt nicht wirklich schön so.