Find Text in a Memo / listbox and see if a word is found and then see if that same word is in another memo / listbox??
Posted on 2003-11-15
on a form1 i have:
1 Button / 2 Memo's / 1 x label
In Memo1 i want to have the following:
I want the user to type content into Memo 2 (and this content will be anycase (not case sensitive) i.e
HEllO mY naME iS ANdRew SHanKLIN etc....
I want the user to click button 1 and a message box to pop up and:
If found: 'One of these words in memo 1 has been found in memo2 on Line Number 1 etc...' or if possible specify which word has been found in memo1 is inmemo2
If Not Found then Label1.caption := 0
So to sumarize...
User enters content clicks button 1 if a word in memo1 is found in memo2 then show message and show line number (Show found word if possible) and if no memo1 words are found in memo2 then label1.caption := 0
Please dont write any exceptions into the code.
Plese provide me with some full source etc...
procedure TForm1.Button1Click(Sender: TObject);
Please "spell it out for me" as i am quite new to Delphi
Thanks in advance.