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;