Du brauchst nur ein Element im Array?
Wieso dann nicht so:
Delphi-Quellcode:
type raptorInfoHelper = class helper for raptorInfo
published
procedure SetEntry (aHawk : String); inline;
end;
implementation
procedure raptorInfoHelper.SetEntry (aHawk : String);
var a: ^aerie;
begin
a:= addr(self.FHawks);
setlength(a,1);
a^[0] := aHawk;
end;
//--------------------------
procedure TFMain.Button2Click(Sender: TObject);
var r:raptorInfo;
begin
r:=raptorInfo.Create;
try
r.SetHawk('asdf');
finally
r.Free;
end;
end;
Dann ist die Logik komplett da, wo sie hingehört und kann von vielen Stellen aus so aufgerufen werden. Letzte Frage wäre aber, ob die Gegenstelle das auch so versteht. Tut sie das?