Вставка имен, задача по Delphi Опции

[SergeiSergeich]

Вот попалась задачка, из решения смог набросать только кнопки.

В одном текстовом поле запрашивается имя пользователя, в другом поле - 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.

[klem4]

1) Для Delphi есть отдельный раздел
2) Твоя задача
3) В следующий раз пользуйся поиском + читай правила форума.

[SergeiSergeich]

) Для Delphi есть отдельный раздел

Извиняюсь, перепутал

Щас попробую подставить...

Сообщение отредактировано: SergeiSergeich - 30.10.2006 23:57