Hallöchen,
ging doch blos um den komischen VarPtr. Das ganze Project
das sind mittlerweile umer 10000 Zeilen...ich glaub das fänden die Leute hier nicht wirklich
lustig
Dank Dir aber trotzdem....
es ging ja nur um das hier :
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 + Char(bAc[a]); // hier stand PChar() das war falsch
end;
mPhase.Lines.Add('Aircraft2 '+AcTyp);
end;
Matthias