umainfrm.pas

cnupper131货币及日期转换大写组件

unit UMainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CnDigits, StdCtrls, ComCtrls, Math;

type
  TForm1 = class(TForm)
    CnDigits1: TCnDigits;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    DateTimePicker1: TDateTimePicker;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Button3: TButton;
    DateTimePicker2: TDateTimePicker;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
  DateTimePicker1.DateTime := Now;
  DateTimePicker2.DateTime := Now;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  v: Extended;
begin
  v := StrToFloatDef(Edit1.Text, 0);
  Memo1.Lines.Add('转化结果: ' + CnDigits1.ChineseUpper(v));
  Memo1.Lines.Add('');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //普通方法
  Memo1.Lines.Add('普通方法:');
  Memo1.Lines.Add(CnDigits1.ChineseDate(DateTimePicker1.Date));
  //银行方法
  Memo1.Lines.Add('银行方法:');
  Memo1.Lines.Add(CnDigits1.StdFmtDate(DateTimePicker1.Date, True));
  Memo1.Lines.Add('');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo1.Lines.Add(CnDigits1.LzhFmtTime(DateTimePicker2.Time, True));
  Memo1.Lines.Add('');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  //ShowMessage(CnDigits1.Alias.Text);
{
  Memo1.Lines.Add(
    StringReplace(
    CnDigits1.StrToAlias(
    CnDigits1.LzhFmtTime(DateTimePicker2.Time, True)),
    ',', '', [rfReplaceAll]));
}
  Memo1.Lines.Add(CnDigits1.StrToAlias2(CnDigits1.LzhFmtTime(DateTimePicker2.Time, True)));
  Memo1.Lines.Add('');
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  m: Extended;
  n: Int64;
begin
  m := StrToFloatDef(Edit1.Text, 0);
  n := Trunc(Abs(m) * 100);
  ShowMessage(IntToStr(n));
end;

procedure TForm1.FormDblClick(Sender: TObject);
begin
  ShowMessage(FormatFloat('.00', 423435.34543));
end;

end.