Помогите решить задачу. Вот пока до чего додумался.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 | procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to memo1.Lines.Count do
if edit1.Text = memo1.Lines[i] then
begin
MessageDlg('Это слово уже есть в тексте Memo!',mtInformation,[mbOk],0);
Exit;
end;
Memo1.Lines.Add(edit1.Text);
end;
|
А вот сама задача
В редактор Memo исходно вводится текст из нескольких строк. В отдельное окно вводится слово. Программа определяет, есть ли это слово в тексте. При положительном исходе на метку выводится номер строки и номер слова. При отсутствии слово добавляется в конец текста в редакторе. Линейка прокрутки задает минимальное количество строк в редакторе. Запуск анализа - кнопка.
18.02.2011, 02:50
Здадача
Древовидный вид