Раздел: FAQ
22.11.2008, 17:35
|
Ответов: 26
Просмотров: 15,124
Ответ: Полезные функции
Преобразует из real в string ещё нормальней(без нулей и точек в конце)
function FloatToStr(r:Real):String;
var
s:string;
begin
s := '' + r;
If pos(s,'.') <> - 1 then while getchar(s,length(s)-1)...
|