Edit&Memo - Помощь студентам - Страница 2

Mad_Cat · 27.09.2010, 21:33

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if trim(edit1.text)='' then exit;
  Memo1.Lines.Add(Edit1.Text);
edit1.setfocus;
end;

Артурка · 27.09.2010, 21:45

спасибо большое

)))))))))))))))))))

27.09.2010, 21:33	#11
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `procedure TForm1.Button1Click(Sender: TObject); begin if trim(edit1.text)='' then exit; Memo1.Lines.Add(Edit1.Text); edit1.setfocus; end;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

27.09.2010, 21:45	#12
Артурка Новичок Джуниор Регистрация: 27.09.2010 Сообщений: 5	спасибо большое)))))))))))))))))))