Форум: "WinAPI";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Внизбез SYSUTILS.PAS Найти похожие ветки
← →
Maksss (2002-11-15 02:33) [0]как перевести без сисутилов double или currency в стринг вида 1234,23 или 1 234,23?
← →
Slym (2002-11-15 07:30) [1]Очень просто: копируй код конвертации в свой юнит и юзай
← →
Victor_Cr (2002-11-15 09:12) [2]Примерно вот так... Дорабатывать будешь по потребности (например отрицательные числа, числа меньше единицы)
Num := 1234.23;
LastDigits := Num - Trunc(Num);
CountLDigits := 0;
Quit := True;
while LastDigits > 0 do
begin
Inc(CountLDigits);
Num := Num * 10;
LastDigits := Num - Trunc(Num);
end;
For i := 1 to CountLDigits do
begin
Double_To_Int := Chr((Num mod 10)+48) + Double_To_Int;
Num := Num div 10;
end;
Double_To_Str := "." + Double_To_Str;
while Num > 0 do
begin
Double_To_Int := Chr((Num mod 10)+48) + Double_To_Int;
Num := Num div 10;
end;
Но можно сделать и не по программерски вызвать процедуру:
procedure Str(X [: Width [: Decimals ]]; var S);
Которая содержиться в модуле SYSTEM.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c