DEC - Format

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Hami.

Delphi-Quellcode:

function DecToIntel(var float): Single;
var
  Intel: LongRec absolute Result;
begin
  Intel.Hi := LongRec(float).Lo;
  Intel.Lo := LongRec(float).Hi;
  if Cardinal(Intel) <> 0 then
    Dec(Intel.Bytes[3]);
end;

Getippt und nicht getestet.

Freundliche Grüße vom marabu

[Hami]

Hallo,
Danke marabu, funktioniert einwandfrei. Und verstanden hab ich es sogar :-D .
Gruß
Daniel