Array of Pointer

[STW]

Hy

Wie kann man einen Pointer auf ein array aus Pointern setzten.
Also auf englisch heisst dass so: pointer to an array of pointers

Hab schon vieles probiert, aber noch nichts hat richtig geklappt.

THX

STW

[sakura]

Delphi-Quellcode:

Type

  TPointers: array of Pointers;

var
  Pointers: TPointers;
  PPointer: Pointer;

begin
  SetLength(Pointers, 456);
  PPointer := @Pointers[0];
  ...

...:cat:...

[STW]

Danke für die schnelle antwort.
Es funktioniert zwar, aber nur bei dem ersten Pointer den ich auslese, der zweite wird gar nicht angezeigt...

Hab mal den Code reingepackt

Delphi-Quellcode:

Function GetFTAllConnectedDeviceSerialNo : FT_Result;
Type
 TPointers = array of Pointer;
var
  Pointers: TPointers;
  Buffer1: String;
  Buffer2: String;
  NumDevs : DWORD;
Begin
  SetLength(Pointers, 40);
  Buffer1 := String(@Pointers[0]);
  Buffer2 := String(@Pointers[1]);
Result := FT_ListDevices1(@Pointers,@numDevs,(FT_LIST_ALL or FT_OPEN_BY_SERIAL_NUMBER));
  Result = FT_OK then FT_Device_String := GetDeviceString;
If Result <> FT_OK then FT_Error_Report('GetFTDeviceSerialNo',Result);
ShowMessage(IntToStr(NumDevs));
ShowMessage(Buffer1);
ShowMessage(Buffer2);
End;