TVarRec Array verlängern

[sirius]

Zitat von Ares:

setlength(args1,2); Das geht leider nicht. Der Compiler meckert dabei "Inkompatible Typen"...

Keine Ahnung, was du gemacht hast, aber das hier funktioniert:

Delphi-Quellcode:

type TVarRecArray=array of TVarRec;

function concatArgs(a, b: array of TVarRec): TVarRecArray;
var i: integer;
begin
  setLength(result, length(a)+length(b));
  for i:=0 to length(a)-1 do
    result[i] := a[i];

  for i:=0 to length(b)-1 do
    result[length(a)+i] := b[i];
end;

procedure TForm1.Button1Click(Sender: TObject);
const x:int64=9;
var Args,Args1:TVarRecArray;
    Args2:array of TVarRec;
begin

  setlength(args1,2);
  args1[0].VInteger:=5;
  args1[0].VType:=vtinteger;

  args1[1].VPChar:='Hallo';
  args1[1].VType:=vtPChar;

  setlength(args2,1);
  args2[0].VType:=vtint64;
  args2[0].Vint64:=@x;


  args:=concatArgs(Args1,Args2);
  showmessage(format('%d %s %d',Args));
end;