array als var-Parameter

[Popov]

Also ich mache das seit Jahren so (siehe unten). Entweder ich mache es falsch oder ich habe hier einige Posts nicht verstanden.

Delphi-Quellcode:

type
  TTest = array of Integer;

procedure Abc(var ATest: TTest);
begin
  ATest[0] := 10;
  ATest[1] := 20;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Test: TTest;
begin
  SetLength(Test, 2);

  Test[0] := 1;
  Test[1] := 2;

  Abc(Test);

  ShowMessage(IntToStr(Test[0] + Test[1]));
end;

Oder so:

Delphi-Quellcode:

type
  TTest = array[0..1] of Integer;

procedure Abc(var ATest: TTest);
begin
  ATest[0] := 10;
  ATest[1] := 20;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Test: TTest;
begin
  Test[0] := 1;
  Test[1] := 2;

  Abc(Test);

  ShowMessage(IntToStr(Test[0] + Test[1]));
end;