Danke @Blup
Habe auch noch eine möglichkeit gefunden:
Code:
type raptorInfoHelper = class helper for raptorInfo
published
procedure AddEntry; inline;
end;
implementation
procedure raptorInfoHelper.AddEntry;
var a:^aerie;
begin
a:=addr(self.FHawks);
setlength(a^,1);
end;
//--------------------------
procedure TFMain.Button2Click(Sender: TObject);
var r:raptorInfo;
begin
r:=raptorInfo.Create;
try
r.AddEntry;
r.Hawks[0]:='asd';
finally
r.Free;
end;
end;
auch nicht schön aber geht
und dann die schönere :
Die hatte erst nen Fehler ausgelöst...
Code:
procedure raptorInfoHelper.AddEntry2;
begin
setlength(self.FHawks,1);
end;