Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

без 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 вся ветка

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
7-99372
Wizz
2002-10-25 19:55
2002.12.30
Подскажите, плжст, код для жесткой перезагрузки DOS&Win98...


1-99093
The_Vizit0r
2002-12-19 19:31
2002.12.30
Не подскажете,а?


14-99322
Keymaster
2002-12-09 02:12
2002.12.30
Такой вот вопрос


14-99330
vopros
2002-12-06 13:20
2002.12.30
Люди иногда не могу понять руссий язык


1-99049
Лана Розанова
2002-12-19 11:38
2002.12.30
Ole объекты