Форум: "Начинающим";
Текущий архив: 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.011 c