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

Вниз

DWord в String   Найти похожие ветки 

 
Цукор5   (2006-06-07 19:32) [0]

Есть DWord его нужно преобразовать в "денежный" вид.
Т.е. было : 100 стало 1,00 или было 1 стало 0,01.

Сделал так :


function To2Str(Val:DWord):String;
 var Tmp:String;
begin
 Tmp:=IntToStr(Val);
 if Length(Tmp)>=3 then
  Result:= Copy(Tmp,1,Length(Tmp)-2)+DecimalSeparator+Copy(Tmp,Length(Tmp)-1,2) else
 case Length(Tmp) of
 1:Result:="0"+DecimalSeparator+"0"+Tmp;
 2:Result:="0"+DecimalSeparator+Tmp;
 end;
end;


но что-то не нравиЦа. Ваши предложения?


 
easy ©   (2006-06-07 19:45) [1]

function To2Str(Val:DWord):String;
begin
 result:=FormatFloat("0.00",Val/100);
end;



Страницы: 1 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.049 c
1-1147642063
TDWS
2006-05-15 01:27
2006.06.25
[DelphiWebScript] Надо вызвать из скрипта функцию программы, и


15-1148972466
TButton
2006-05-30 11:01
2006.06.25
тех.док.


15-1149167212
Курдль
2006-06-01 17:06
2006.06.25
Прощай, Delphi! (Не про политику Borland)


2-1149685916
Рогов
2006-06-07 17:11
2006.06.25
моя забывчивость


15-1149065444
tesseract
2006-05-31 12:50
2006.06.25
работа системного администратора