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; end;