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