Pointer, Array, Funktion geht nicht

[schwa226]

Hi,

komm einfach nicht drauf!

Ich habe eine Class mit einer public Funktion die so deklariert ist:

Code:

function  TProgramFunctions.CalcResult(const data: PLongArray): boolean;

PLongArray ist so definert:

Code:

TLongArray = Array of Byte;
PLongArray = ^TLongArray;

nun binde ich die Class über create in meine uMain ein und mache z.B. folgendes:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var  test2: array [0..2] of byte;
begin

   teset2[0] := 123;
   teset2[1] := 47;
   teset2[2] := 85;

  ProgramCalc:=  TProgramFunctions.Create;

  ProgramCalc.CalcResult(@test2);

end;

Ich übergebe somit ja den Pointer meines Arrays. Wenn ich aber nun in meiner CalcResult den Inhalt von data ansehe, steht immer "nicht verfügbarer Wert".

Warum?