Поиск по совпадениям (delphi)

[rita3]

Здравствуйте. Помогите, пожалуйста!!!
Мне нужно организовать поиск по совпадениям, т.е., чтобы при вводе строки в Edit1.Text программа искала совпадающие символы, слова, предложения (без учета регистра) в каждой строке в Memo1, выделяла подходящую строку Lines, затем при нажатии на Button1 загружала соответствующий этому Lines определенный файл text.txt в Memo2 и определенную картинку в Image1.
Буду очень благодарна за любой совет и помощь!

[Terran]

Я не знаю всех нюансов Вашего задания, поэтому написал примерный шаблон Вашей программы. В нём почти всё есть. Вам осталось только подкорректировать его как Вам надо.

Procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
Begin
For I:=0 To Memo1.Lines.Count-1 Do
Begin
If Pos(AnsiUpperCase(Edit1.Text),AnsiUpperCase(Memo1.Lines.Strings[I])) <> 0 Then
Begin
//Memo1.SetFocus;
//Memo1.SelStart:=0; Номер символ с которого начинается выделение
//Memo1.SelLength:=Length(Memo1.Lines[I]);
//Выделяем строку в мемо, ориентируемся на переменную I
End;
End;
End;
Procedure TForm1.Button2Click(Sender: TObject);
Begin
If {Выделена такая строка (или можете использовать Case) = 2} Then
Begin
Memo2.Lines.LoadFromFile('Путь к файлу');
Image1.Picture.LoadFromFile('Путь к картинке');
End;

[rita3]

Что-то у меня не получается. При вводе любого текста в Edit1 в Memo1 все время выделяются две первые строки, а не совпадающие.
Может я не правильно изложила задачу или в коде не разбираюсь((
И я даже не знаю, как объявить в Button1, что в Memo1 выделена такая-то строка(((
Так выглядит моя форма

[Terran]

В общем я написал Вашу программу. Только Memo1 заменил на ListBox т.к. у Вас там идут разделы и будет целесообразней для этого использовать ListBox и с ним проще сделать выделение строк. (Но если надо с Memo, то можно сделать и с ним) Вот исходничёк: Поиск по совпадениям.rar

[rita3]

Большое Вам спасибо за программку!
Все, конечно же, работает замечательно, но когда я набираю текст, допустим, «газеты» в Edit1, то выделяется первая строка с совпадением «книги, газеты, журналы», но есть просто раздел «газеты», который на последней строке и он не выделяется.
И еще, что сделать, чтобы при выделении строки в ListBox1 мышкой, она появлялась в Edit1?
Всех с праздником Великой Победы!!!

[Terran]

Большое Вам спасибо за программку!

Не за что.

Все, конечно же, работает замечательно, но когда я набираю текст, допустим, «газеты» в Edit1, то выделяется первая строка с совпадением «книги, газеты, журналы», но есть просто раздел «газеты», который на последней строке и он не выделяется.

Чтобы выделялось всё чётко, удалите в цикле просто слово Break и вместо него напишите такой код:

If ListBox1.Items.Strings[I] = Edit1.Text Then
Begin
Break;
End;

И еще, что сделать, чтобы при выделении строки в ListBox1 мышкой, она появлялась в Edit1?

В событии ListBox'a ListBox1Click напишите такой код:

Procedure TForm1.ListBox1Click(Sender: TObject);
Begin
Edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];
End;

Всех с праздником Великой Победы!!!

Спасибо!