[Tonyy]

вполне возможно что swapflt кривая. но лучшей реализации пока не видел.

Код:

function swapflt(value:single):single;
var
dd:array [0..3] of  byte absolute value;
temp:byte;
i:integer;
begin

                          for i:=0 to 1 do begin
                          temp:=dd[i];
                          dd[i]:=dd[3-i];
                          dd[3-i]:=temp;
                          end;
                          result:=value;



end;

если вы подскажите мне реализацию лучше - буду вам безмерно благодарен.