unit1.~pas

字符串转换为各种类型

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    lbledt1: TLabeledEdit;
    lbledt2: TLabeledEdit;
    lbledt3: TLabeledEdit;
    lbledt4: TLabeledEdit;
    lbledt5: TLabeledEdit;
    btn1: TBitBtn;
    btn2: TBitBtn;
    btn3: TBitBtn;
    btn4: TBitBtn;
    btn5: TBitBtn;
    lbl1: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  if (lbledt1.Text <> '0') and (StrToIntDef(lbledt1.Text, 0) = 0) then
    ShowMessage('“' + lbledt1.Text + '” not Integer');
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  if StrToDateDef(lbledt2.Text, 0) = 0 then
    ShowMessage('“' + lbledt2.Text + '” not Date');
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  if StrToTimeDef(lbledt3.Text, 0) = 0 then
    ShowMessage('“' + lbledt3.Text + '” not Time');
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
  if StrToFloatDef(lbledt4.Text, 0) = 0 then
    ShowMessage('“' + lbledt4.Text + '” not Float');
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
  if StrToCurrDef(lbledt5.Text, 0) = 0 then
    ShowMessage('“' + lbledt5.Text + '” not Currency');
end;

end.