VarPtr in Delphi ?

[goose33]

Hallöchen,

( oh VB also )

also so hab ich mir das ja auch gedacht und das war dabei rausgekommen :

Delphi-Quellcode:

var
   b : array[0..23] of byte;
   AcTyp : string;
begin

      FSUIPC_Read($3160, 24, @bAc[0], dwResult);
      FSUIPC_Process(dwResult);
      for a := 0 to 255 do
      begin
        if bAc[a] = 0 then
          break
        else AcTyp := AcTyp + PChar(bAc[a]);
      end;
      mPhase.Lines.Add('Aircraft2 '+AcTyp);

Leider geht das so irgendwie nicht
Weiss auch nicht warum ??

Du ?

Danke
Matthias