Форум: "Начинающим";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c