conv_def.pas

来自「大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JA」· PAS 代码 · 共 56 行

unit conv_def;

// Unit dedicata alla conversione di valore (euro,lire, ecc) e alla gestione dei default....

interface
  Function LeggiEuro : real ;

implementation

uses ana_mod ;

Function LeggiEuro : real ;
Var
   errcode : integer ;

begin
     If ModuloDatiAnagrafiche.TTdefaults.FindKey(['EURO']) then
        Val(ModuloDatiAnagrafiche.TTdefaultsValore.Value,result,errcode)
     else
         begin
              ModuloDatiAnagrafiche.TTdefaults.Insert ;
              ModuloDatiAnagrafiche.TTdefaultsChiave.Value := 'EURO' ;
              ModuloDatiAnagrafiche.TTdefaultsValore.Value := '1942' ;
              ModuloDatiAnagrafiche.TTdefaults.Post ;
              result := 1942 ;
         end ;

end ;

Function EuroLire(euro:real) : real ;
begin
     result := euro * LeggiEuro ;
end ;

Function LireEuro(lire:real) : real ;
begin
     result := lire / LeggiEuro ;
end ;

Function EL : string ;
begin
     If ModuloDatiAnagrafiche.TTdefaults.FindKey(['EL']) then
        Result := ModuloDatiAnagrafiche.TTdefaultsValore.Value
     else
         begin
              ModuloDatiAnagrafiche.TTdefaults.Insert ;
              ModuloDatiAnagrafiche.TTdefaultsChiave.Value := 'EL' ;
              ModuloDatiAnagrafiche.TTdefaultsValore.Value := 'E' ;
              ModuloDatiAnagrafiche.TTdefaults.Post ;
              result := 'E' ;
         end ;

end ;

end.