Приложение unit fmain;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,

Dialogs, StdCtrls;

type

TFormmain = class(TForm)

Edit1: TEdit;

StaticText1: TStaticText;

Edit2: TEdit;

StaticText2: TStaticText;

ComboSex: TComboBox;

StaticText3: TStaticText;

StaticText4: TStaticText;

ComboAge: TComboBox;

Button1: TButton;

Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); private

{ Private declarations } public

{ Public declarations } end;

var

Formmain: TFormmain;

implementation

uses ftest;

{$R *.dfm}

procedure TFormmain.Button1Click(Sender: TObject); var error:Boolean; begin nomer:=0; if edit1.Text='' then begin messagedlg('Введите фамилию',mterror,[mbok],0); error:=true; end else error:=false; if edit2.Text='' then begin messagedlg('Введите имя',mterror,[mbok],0); error:=true; end else error:=false; if ComboSex.ItemIndex0 then if ComboSex.ItemIndex1 then begin messagedlg('Введите пол',mterror,[mbok],0); error:=true; end else error:=false; if ComboAge.ItemIndex0 then if ComboAge.ItemIndex1 then if ComboAge.ItemIndex2 then begin messagedlg('Введите возраст',mterror,[mbok],0); error:=true; end else error:=false; if error=false then begin

Поделитесь этой записью или добавьте в закладки