开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
EuroForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

EuroForm.pas：源码内容
  1. unit EuroForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     EditValue: TEdit;
  13.     EditResult: TEdit;
  14.     ListTypes: TListBox;
  15.     ListTypes2: TListBox;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     procedure Button1Click(Sender: TObject);
  19.     procedure FormCreate(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  26. var
  27.   Form1: TForm1;
  29. implementation
  31. {$R *.DFM}
  33. uses
  34.    EuroConvConst, ConvUtils, Math;
  36. procedure TForm1.Button1Click(Sender: TObject);
  37. var
  38.   nConverted: Double;
  39.   BaseType, DestType: TConvType;
  40. begin
  41.   // simple conversions (test)
  42.   {EditResult.Text := FloatToStrF (
  43.     Convert (StrToFloat (EditValue.Text),
  44.     cuDEM, cuITL), ffNumber, 15, 3)}
  46.   DescriptionToConvType(cbEuroCurrency,
  47.     ListTypes.Items [ListTypes.ItemIndex], BaseType);
  48.   DescriptionToConvType(cbEuroCurrency,
  49.     ListTypes2.Items [ListTypes2.ItemIndex], DestType);
  51.   // plain conversions
  52.   {nConverted := Convert (StrToFloat (EditValue.Text),
  53.     BaseType, DestType);
  54.   EditResult.Text := FloatToStrF (nConverted, ffNumber, 15, 4);}
  56.   // Euro "rounding" conversion
  57.   nConverted := EuroConvert (StrToFloat (EditValue.Text),
  58.     BaseType, DestType, 4);
  59.   EditResult.Text := FloatToStrF (nConverted, ffNumber, 15, 4);
  60. end;
  62. procedure TForm1.FormCreate(Sender: TObject);
  63. var
  64.   ATypes: TConvTypeArray;
  65.   i: Integer;
  66. begin
  67.   GetConvTypes(cbEuroCurrency, ATypes);
  68.   for i := Low(aTypes) to High(aTypes) do
  69.     ListTypes.Items.Add (
  70.       ConvTypeToDescription (aTypes[i]));
  71.   // copy items to the second list
  72.   ListTypes2.Items := ListTypes.Items;
  73.   // select first of each list
  74.   ListTypes.ItemIndex := 0;
  75.   ListTypes2.ItemIndex := 0;
  76. end;
  78. end.