Советы по Delphi. Версия 1.4.3 от 1.1.2001 - страница 2

Hy, если yж дело идет к изyчению списка фyнкций :), то yпомянy еще Ceil и Floor. Unit Math;

Кстати, втоpая из них мне очень пpигодилась для полyчения экспоненты числа. Имеется в видy экспонента: X=1E 13 [001193]

Nomadic советует:

Пишу даже прямо StrToFloat('32.34'), к примеру, получаю исключение «'32.34' is not valid float». Если пишу число без десятичной точки, то все ОК. А какой у тебя DecimalSeparator? В Russian settings почему-то по умолчанию считается, что разделитеь дроби – запятая. Пеpеустанови пpи запуске пpогpаммы

>DecimalSeparator := '.';

Или пользуйся этой функцией так:

>StrToFloat('32,24');

Сергей AKA WildSery прислал свой вариант:

Привожу мой вариант, написал для своего приложения за 20 минут. В силу специфики приложения не утруждал себя прописью полностью "рублей" и "копеек", а ограничился "руб." и "коп.", а также не было необходимости в знаке числа, по это все добавляется буквально 3-4 строками.

>function  currency2str (value: double): string;

> const hundreds: array [0..9] of string = ('',' сто',' двести',' триста',' четыреста',' пятьсот',' шестьсот',' семьсот',' восемьсот',' девятьсот');

> tens: array [0..9] of string = ('','',' двадцать',' тридцать',' сорок',' пятьдесят',' шестьдесят',' семьдесят',' восемьдесят',' девяносто');

> ones: array [0..19] of string = ('','','',' три',' четыре',' пять',' шесть',' семь',' восемь',' девять',' десять',' одиннадцать',' двенадцать',' тринадцать',' четырнадцать',' пятнадцать',' шестнадцать',' семнадцать',' восемнадцать',' девятнадцать');

> razryad: array [0..6] of string = ('',' тысяч',' миллион',' миллиард',' триллион',' квадриллион',' квинтиллион');

> var s: string; i: integer; val: int64;

> function shortnum(s: string; raz: integer): string;

> begin

>  Result:=hundreds[StrToInt(s[1])];

>  if strtoint(s)=0 then exit;

>  if s[2]<>'1' then begin

>   Result:=Result+tens[StrToInt(s[2])];

>   case strtoint(s[3]) of

>   1: if raz=1 then result:=result+' одна' else result:=result+' один';

>   2: if raz=1 then result:=result+' две' else result:=result+' два';

>   else result:=result+ones[strtoint(s[3])];

>   end;

>   Result:=Result+razryad[raz];

>   case strtoint(s[3]) of

>   0,5,6,7,8,9: if raz>1 then result:=result+'ов';

>   1: if raz=1 then result:=result+'а';

>   2,3,4: if raz=1 then result:=result+'и' else if raz>1 then result:=result+'а';

>   end;

>  end else begin

>   Result:=Result+ones[StrToInt(Copy(s,2,2))];

>   Result:=Result+razryad[raz];

>   if raz>1 then result:=result+'ов';

>  end;

> end;

>begin

> val:=Trunc(value);

> if val=0 then begin result:='ноль'; exit; end;

> s:=IntToStr(val); Result:=''; i:=0;

> while length(s)>0 do begin

>  Result:=shortNum(Copy('00'+s,Length('00'+s)-2,3),i)+Result;

>  if length(s)>3 then s:=copy(s,1,length(s)-3) else s:='';

>  inc(i);

> end;

> s:=IntToStr(Trunc((value-val)*100+0.5));

> Result:=Result+' руб. '+s+' коп.';

>end;

Delphi 1

>{ Следующий код вставляет значение даты/времени в memo-поле. }

>Var

> s : string;

>begin

> s :=  DateToStr( Date ) + ' ' + TimeToStr( Time ) + '  :';

> Memo1.Lines.Insert(0, s);

> Memo1.SetFocus;

> Memo1.SelStart := Length(s);

> Memo1.SelLength := 0;

Delphi 1

>function easter (year: integer): tdatetime;

>{----------------------------------------------------------------}

>{ Вычисляет и возвращает день Пасхи определенного года.          }

>{ Идея принадлежит Mark Lussier, AppVision <MLussier@best.com>.  }

>{ Скорректировано для предотвращения переполнения целых, если по }

>{ ошибке передан год с числом 6554 или более.                    }

>{----------------------------------------------------------------}

>var

> nMonth, nDay, nMoon, nEpact, nSunday,

> nGold, nCent, nCorx, nCorz: Integer;

>begin

> { Номер Золотого Года в 19-летнем Metonic-цикле: }

> nGold := (Year mod 19) + 1;

> { Вычисляем столетие: }

> nCent := (Year div 100) + 1;

> { Количество лет, в течение которых отслеживаются високосные года… }

> { для синхронизации с движением солнца: }

> nCorx := (3 * nCent) div 4 – 12;

> { Специальная коррекция для синхронизации Пасхи с орбитой луны: }