Написать программу. Delphi

[allg]

Написать программу. Delphi

Здравствуйте.
Необходимо решить задачку на делфи:
Из test1 считать строку s1.
Из test2 считать строку s2 (длина строки s2 не больше длины строки s1)
Определить, сколько раз строка s2 встречается в строке s1.
Результат вывести в test3.
Товарищи, кому не сложно, напишите пожалуйста.

 

[MrSTEP]

Сами-то пробовали хоть что-нибудь сделать? Если да, в чем проблема? Если нет, то почему?

 

[Vladimir_S]

Кстати, паскалевскую часть можно взять отсюда: http://www.tehnari.ru/f43/t61721/#post640947

 

[allg]

Сами-то пробовали хоть что-нибудь сделать? Если да, в чем проблема? Если нет, то почему?

Я бы с удовольствием. Поставили перед фактом, дали задания, на след.день сдать. Ну а в программировании соответственно я на "алё".

 

[allg]

И ошибочка: вместо test1 - edit1, test2 - edit2, test3 - edit3
Я так понимаю свои сообщения редактировать нельзя?

 

[MrSTEP]

Сообщения редактировать можно, но только 10 минут.
Ну давайте по порядку: открываете Делфи, на форму кидаете три Edit'a и кнопку Button, и сохраняйте проект.

 

[allg]

MrSTEP, вы всё еще готовы помочь?
То что сказали, выполнил.

 

[MrSTEP]

Поставили перед фактом, дали задания, на след.день сдать.

Следующий день прошел уже почти месяц назад

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

 

[allg]

Ничего не понял. У меня сейчас на кнопке в юните написано следующее:

procedure TForm1.Button1Click(Sender: TObject);
begin
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
end;
procedure TForm1.Edit3Change(Sender: TObject);
begin
end;
end.

Следующий день прошел уже почти месяц назад

Ну так, теперь не факт что примут у меня эти же самые задания.

 

[allg]

Нужно на кнопке в OnClick выбрать Edit1?
Я просто реально не понимаю.

 

[MrSTEP]

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

 

[allg]

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

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

 

[MrSTEP]

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

var s1,s2:string;

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

s1:=Edit1.text;

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

 

[allg]

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

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

Верно?