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

Вниз

Как получить в Currency то что находится до запятой и после?   Найти похожие ветки 

 
RiKo   (2004-05-09 02:43) [0]

subj


 
RiKo   (2004-05-09 02:55) [1]

Уже нашел, не совсем то что искал, но мне подходит

Модуль для записи числа словами
ByWords


 
Mim1 ©   (2004-05-09 03:43) [2]

Trunc, Frac


 
TUser ©   (2004-05-09 05:57) [3]

Переделай под свои нужды
procedure MyVal(Value:string; var V:integer; var Code:integer);
var i:integer; f:boolean;
begin
  i:=1; f:=true;
  while f and (i<=length(Value)) do
     if Value[i]="0" then inc (i)
        else f:=false;
  if f then begin Code:=0; V:=0; end else
     val(copy(Value,i,length(Value)-i+1),V,Code);
end;

function GetDouble(Value:string; var Code:integer):double;
var i,j,k,c:integer;
begin
  Code:=0;
  k:=pos(".",Value);
  if k=0 then Val(Value,result,Code) else begin
     if posex(".",Value,k+1)<>0 then
        raise EWrongRule.Create("Wrong double value: """+Value+"""");
     MyVal(copy(Value,1,k-1),i,c);
     if c<>0 then raise EWrongRule.Create("Wrong double value: """+Value+"""");
     Val(copy(Value,k+1,length(Value)-k),j,c);
     if c<>0 then raise EWrongRule.Create("Wrong double value: """+Value+"""");
     c:=length(Value);
     k:=c-k;
     if j = 0 then result:=i else
        result:=i+j/power(10,k);
     end;
end;


 
Anatoly Podgoretsky ©   (2004-05-09 11:36) [4]

Currency 64-bit scaled integer c 4 знаками после запятой



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
9-1074485732
Shaytan
2004-01-19 07:15
2004.05.23
пишу игру ................................


1-1084268991
Axar
2004-05-11 13:49
2004.05.23
Ваше мнение о Delphi .NET


1-1084292925
tower
2004-05-11 20:28
2004.05.23
Из памяти в файл. Как?


1-1084170481
Леван
2004-05-10 10:28
2004.05.23
Richedit ведет себя по разному


4-1081345640
Comp
2004-04-07 17:47
2004.05.23
Шрифт