Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Делфи _ Вставка имен
Автор: SergeiSergeich 30.10.2006 23:29
Вот попалась задачка, из решения смог набросать только кнопки.
В одном текстовом поле запрашивается имя пользователя, в другом поле - 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.
Эскизы прикрепленных изображений
Автор: klem4 30.10.2006 23:38
1) Для Delphi есть отдельный раздел
2) http://forum.pascal.net.ru/index.php?showtopic=7811&hl=%E3%EE%E4%E0
3) В следующий раз пользуйся поиском + читай правила форума.
Автор: SergeiSergeich 31.10.2006 1:49
Цитата
) Для Delphi есть отдельный раздел
Извиняюсь, перепутал
Щас попробую подставить...