Главная страница
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.028 c
2-1149614650
Mr tray
2006-06-06 21:24
2006.06.25
Нужно ли выделять память для #0 в null-terminated string


1-1147778258
pheonix
2006-05-16 15:17
2006.06.25
определение высоты панели задач


15-1148997561
AlexanderMS
2006-05-30 17:59
2006.06.25
"Мастер Delphi"


15-1149064855
0bsid
2006-05-31 12:40
2006.06.25
Delphi уроки $$


2-1149417399
Whom
2006-06-04 14:36
2006.06.25
canvas