[SkyLine777]

Преобразует из real в string ещё нормальней(без нулей и точек в конце)


function FloatToStr(r:Real):String;
var
s:string;
begin
s := '' + r;
If pos(s,'.') <> - 1 then while getchar(s,length(s)-1) = '0' do s := copy(s,0,length(s)-1);
FloatToStr := s;


if pos(s,'.')=length(s)-1 then FloatToStr:=copy(s,0,length(s)-1);
end;