Einzelnen Beitrag anzeigen

4dk2

Registriert seit: 4. Sep 2007
176 Beiträge
 
#5

AW: WSDL Dynamische Arrays als Property und Setlength ???

  Alt 27. Feb 2013, 07:20
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;
  Mit Zitat antworten Zitat