vložil Radek Červinka
31. ledna 2017 00:03
Podle mne ne moc známá věc je implementace BCD v Delphi. BCD je způsob uložení čísel s fixní přesností. BCD je v Delphi reprezentován záznamem TBCD definovaným v jednotce Data.FmtBCD, případně FMTBcd (ve starších verzích, nejméně D2007).
V "novějších" verzích (XE2? +) je pro tento typ implementován class operator pro různé výchozí typy, takže podpora je celkem transparentní - jak je ukázáno v kódu.
uses
SysUtils,
Data.FMTBcd;
var
a, b, c: TBcd;
s: string;
begin
try
b := '10'; // implicit ze stringu
a := 10000000; // implicit z integer
BcdDivide(b, a, c); // primo volani (pro starší verze)
writeln(BcdToStr(c));
c := b / a; // pouzije class operator TBcd.Divide
writeln(BcdToStr(c));
s := string(c); // explicit do stringu
writeln(s);
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
Rozhraní dle Data.FmtBcd.TBcd:
TBcd = record
Precision: Byte; { 1..64 }
SignSpecialPlaces: Byte; { Sign:1, Special:1, Places:6 }
Fraction: packed array [0..31] of Byte; { BCD Nibbles, 00..99 per Byte, high Nibble 1st }
class operator Implicit(const str: string): TBcd;
class operator Implicit(const d: double): TBcd;
class operator Implicit(const I: Integer): TBcd;
class operator Explicit(const ABcd: TBcd): string;
class operator Explicit(const ABcd: TBcd): Integer;
class operator Add(const A, B: TBcd): TBcd;
class operator Subtract(const A, B: TBcd): TBcd;
class operator Multiply(const A, B: TBcd): TBcd;
class operator Divide(const A, B: TBcd): TBcd;
class operator Negative(const A: TBcd): TBcd;
class operator Equal(const A, B: TBcd): Boolean;
class operator NotEqual(const A, B: TBcd): Boolean;
class operator GreaterThan(const A, B: TBcd): Boolean;
class operator LessThan(const A, B: TBcd): Boolean;
class operator GreaterThanOrEqual(const A, B: TBcd): Boolean;
class operator LessThanOrEqual(const A, B: TBcd): Boolean;
end;
edfc8145-df38-4658-a10f-31e32591ec16|7|5.0
Tagy: RTL
Praxe
RSS