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