How to perform a Search with a TMemo?
Posted on 1998-10-03
I would like to know how to perform a search in a tmemo component with a Tfinddialog. You know, exactly like when you choose the "Find..." function in a word processor or in a text editor. I've got this code but it doesn't works properly, i think something is missing in the code:
procedure TForm1.Find1Click(Sender: TObject);
I := 0;
IF FindDialog1.Execute then
while (Pos(FindDialog1.FindText, Memo1.Lines[I]) = 0)
AND (I <= (Memo1.Lines.Count+1)) do Inc(I);
If you need some specifications to this question just ask me.