[Kn793]

Преобразует из 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;
end;