Написать программу. Delphi - Страница 2

MrSTEP · 24.01.2012, 22:36

Нет, все не так. Откуда вы все это взяли? Дважды щелкали по эдитам?
Ну так вот удалите все это и скопилируйте проект (проверьте на ошибки, запустите) клавишами Ctrl+F9 и удалите все заголовки процедур, на которые он будет ругаться, ведь они уже удалены.
А теперь дважды щелкните по кнопке, откроется процедура обработки щелчка по кнопке (то событие OnClick). Вообще, у каждого компонента на форме есть событие. В левом нижнем углу окна есть маленькое окошко Object Inspector с двумя вкладками - Параметры и События, для выбранного объекта. Так вот, там тоже можно найти OnClick и много других событий, которые могут в дальнейшем пригодиться. Пробуйте.

allg · 25.01.2012, 15:53

Цитата:

Сообщение от MrSTEP

Нет, все не так. Откуда вы все это взяли? Дважды щелкали по эдитам?

Да.
Значит начал всё сначала. На кнопке щёлкаю 2раза, открывается юнит1. В Object Inspector открываю Events (События), в OnClick стоит Button1Click.
Нашёл это, что дальше?

MrSTEP · 25.01.2012, 19:41

Выбор OnClick в Events'ах аналогичен двойному щелчку.
Дальше в процедуре описывайте нужные переменные s1 и s2 строкового типа таким образом: перед началом процедуры (begin) вставляете строчку:

Код:

var s1,s2:string;

Ну а в теле процедуры (после begin и перед end) пишите операцию, которая бы взяла в переменную S значение из Эдита. В эдите текст хранится в соответствующем поле. Обращение к полю компонента выполняется так: <имя компонента>.<имя поля>. То есть, Edit.Text;
Примерно будет выглядеть так:

Код:

s1:=Edit1.text;

Для второй переменной надо добавить похожую строчку. Пробуйте.

allg · 25.01.2012, 21:39

Таак, получаем:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:string;
begin
s1:=Edit1.text;
s2:=Edit2.text;
end;
end.

Верно?

25.01.2012, 19:41	#13 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Выбор OnClick в Events'ах аналогичен двойному щелчку. Дальше в процедуре описывайте нужные переменные s1 и s2 строкового типа таким образом: перед началом процедуры (begin) вставляете строчку: Код: var s1,s2:string; Ну а в теле процедуры (после begin и перед end) пишите операцию, которая бы взяла в переменную S значение из Эдита. В эдите текст хранится в соответствующем поле. Обращение к полю компонента выполняется так: <имя компонента>.<имя поля>. То есть, Edit.Text; Примерно будет выглядеть так: Код: s1:=Edit1.text; Для второй переменной надо добавить похожую строчку. Пробуйте.

25.01.2012, 21:39	#14 (permalink)
allg Новичок Регистрация: 26.12.2011 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Таак, получаем: Код: procedure TForm1.Button1Click(Sender: TObject); var s1,s2:string; begin s1:=Edit1.text; s2:=Edit2.text; end; end. Верно?

24.01.2012, 22:36	#11 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Нет, все не так. Откуда вы все это взяли? Дважды щелкали по эдитам? Ну так вот удалите все это и скопилируйте проект (проверьте на ошибки, запустите) клавишами Ctrl+F9 и удалите все заголовки процедур, на которые он будет ругаться, ведь они уже удалены. А теперь дважды щелкните по кнопке, откроется процедура обработки щелчка по кнопке (то событие OnClick). Вообще, у каждого компонента на форме есть событие. В левом нижнем углу окна есть маленькое окошко Object Inspector с двумя вкладками - Параметры и События, для выбранного объекта. Так вот, там тоже можно найти OnClick и много других событий, которые могут в дальнейшем пригодиться. Пробуйте.

24.01.2012, 22:36
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	В данных топиках должна быть интересующая вас информация Помогите написать программу Помогите написать программу на СИ

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070