поиск слова в Memo

[Rebel123]

Добрей день Прогеры! Вот я знаю как найти слово в ListBox1
это будет так:

Listbox1.perform(lb_selectstring,-1,longint(pchar(Edit1.text)));

а незнаю как это реализовать в Memo1. Может подскажите?

То есть мне нужно сделать так , когда прописываешь слово в Edit1 чтоб он в Memo1 их отметил!

[Вавел из ГМТУ]

Функция Pos(...);

[Alex Cones]

чтоб он в Memo1 их отметил!

Не получится, юзай RichEdit!

[MalCer]

Поиск слова в Memo:

procedure TForm1.Button1Click(Sender: TObject);
var 
Find:string; // Искомая строка
i:integer; 
begin
find:=Edit1.Text; // Записываем в find текст из Edit
For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
End;
end;

[Rebel123]

почему то именно где Memo1 там везде ошибки!
незнаю почему, просто он расположен на другой форме, ну так все ровно ошибки ведь не должно было быть!

[spamer]

А что хоть за ошибки? Я попробовал, то все работает.

[Rebel123]

Вот прога! когда жмешь Настройки -- Поиск, то тогда форма2 выходит, и вот на SpeedButton'е этот код выдает ошибку именно в Memo1

[russian-stalker]

Если расположен на другой форме, то вместе memo1 надо написать:
имя_другой_формы.имя_мемо(например, form2.memo1.selstart)

[Rebel123]

Сообщение от russian-stalker

Если расположен на другой форме, то вместе memo1 надо написать:
имя_другой_формы.имя_мемо(например, form2.memo1.selstart)

Вам + поставил!

Возникает след. вопрос: Например если я ищу слово и в текстах он не один, то тогда он находит только самую первую из них, а можно сделать чтоб находил и кончно же помечал все (если есть конечно одинаковые)?

[russian-stalker]

Поменяйте лучше memo на richedit. Тогда можно будет подсвечивать слова.