Array durch PSafeArray übergeben

[Dani]

Hi, meinst du z.B. sowas?

Delphi-Quellcode:

type
  TSafeArray = array [0..10] of Byte;
  PSafeArray = ^TSafeArray;

//...

procedure TForm1.Foo;
var
  MyArr: TSafeArray;
  I: Integer;
begin
  for I := 0 to 10 do
    MyArr[I] := I;

  Bar (@MyArr);
  ShowMessage (IntToStr (MyArr[0]));
end;

procedure TForm1.Bar(Arr: PSafeArray);
begin
  Arr[0] := 10;
end;

Dann hilft dir [oh]@ (Adreß-Operator)[/oh]