unit1.pas

通讯录程序

unit Unit1;

interface

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

type
  TFormjob = class(TForm)
    EditName: TEdit;
    LabelName: TLabel;
    ButtonCalc: TButton;
    LabelWork: TLabel;
    EditWork: TEdit;
    ButtonExit: TButton;
    LabelResult: TLabel;
    procedure ButtonCalcClick(Sender: TObject);
    procedure ButtonExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formjob: TFormjob;

implementation

{$R *.dfm}

procedure TFormjob.ButtonCalcClick(Sender: TObject);


begin
 LabelResult.Caption:=EditName.Text+'是'+EditWork.Text;
 ShowMessage(EditName.Text+'是'+EditWork.Text);

end;

procedure TFormjob.ButtonExitClick(Sender: TObject);
begin
Close();
end;

end.