07.03.2010, 11:41
|
|
Участник форума
Регистрация: 17.05.2009
Сообщений: 160
С нами:
8939778
Репутация:
222
|
|
procedure TForm1.Button1Click(Sender: TObject);
var
myname:String;
myfam:String;
begin
myname:=Edit1.text;
myfam:=Edit2.Text;
Memo1.Lines.Add(myname);
with Memo1.Lines do
begin
Add(myname);
Add(myfam);
end;
end;
Можно немного проще сделать
procedure TForm1.Button1Click(Sender: TObject);
var
myname:string;
myfam:string;
begin
myname:=Edit1.Text;
myfam:=Edit2.Text;
Memo1.Lines.Add(myname);
Memo1.Lines.Add(myfam);
end;
end.
|
|
|