Показать сообщение отдельно
Старый 30.08.2008, 16:12   #26
Kn793
Оператор ЭВМ
 
Аватар для Kn793
 
Регистрация: 30.08.2008
Сообщений: 22
Написано 0 полезных сообщений
(для 0 пользователей)
FloatToStr

Преобразует из 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;
(Offline)
 
Ответить с цитированием