В одном текстовом поле запрашивается имя пользователя, в другом поле - X год рождения. В поле метки выводится выражение "Имя, Вам X лет", записанное правильно лексикографически. Например: "Иван, Вам 11 лет", "Мария, Вам 21 год" или "Шура, Вам 34 года".
Код
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Button1: TButton;
procedure Label3Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Label3Click(Sender: TObject);
begin
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Button1: TButton;
procedure Label3Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Label3Click(Sender: TObject);
begin
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
end.
