Solved

How to perform a Search with a TMemo?

Posted on 1998-10-03
13
306 Views
Last Modified: 2010-04-06
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);
begin
  I := 0;
  IF FindDialog1.Execute then
  begin
    while (Pos(FindDialog1.FindText, Memo1.Lines[I]) = 0)
      AND (I <= (Memo1.Lines.Count+1)) do Inc(I);
  end;
end;

If you need some specifications to this question just ask me.
0
Comment
Question by:elbaid
  • 6
  • 3
  • 2
  • +2
13 Comments
 

Author Comment

by:elbaid
ID: 1341590
Edited text of question
0
 
LVL 5

Expert Comment

by:inter
ID: 1341591
Hi,
this code works for case sensitive search and it can not detect wrapping words. The casre insensitive version can be as follows:

procedure TForm1.Find1Click(Sender: TObject);
    begin
      I := 0;
      IF FindDialog1.Execute then
      begin
        while (Pos(LowerCase(FindDialog1.FindText), LowerCase(Memo1.Lines[I])) = 0)
          AND (I <= (Memo1.Lines.Count+1)) do Inc(I);
      end;
    end;
igor
0
 
LVL 5

Expert Comment

by:inter
ID: 1341592
More code from Delphi help is as follows:
(associate this with the find dialog find event and remove the previous code)

procedure TForm1.FindDialog1Find(Sender: TObject);

var
  I, J, PosReturn, SkipChars: Integer;
begin
  for I := 0 to Memo1.Lines.Count do
  begin
    // I added case insensitive search here
    PosReturn := Pos(LowerCase(FindDialog1.FindText),LowerCase(Memo1.Lines[I]));
    if PosReturn <> 0 then {found!}
    begin
      Skipchars := 0;
      for J := 0 to I - 1 do
        Skipchars := Skipchars + Length(Memo1.Lines[J]);
      SkipChars := SkipChars + (I*2);
      SkipChars := SkipChars + PosReturn - 1;
      Memo1.SetFocus;
      Memo1.SelStart := SkipChars;
      Memo1.SelLength := Length(FindDialog1.FindText);
      Break;
    end;
  end;
end;
0
 
LVL 10

Expert Comment

by:viktornet
ID: 1341593
you could also do something like this:

it does not use TFindDialog..Just a simple procedure....

procedure GoTo(Memo : TMemo; sWord : string);
var
  nPos : Integer;
begin
  nPos := Pos(sWord, Memo.Text);
  if nPos > 0 then begin
    Memo.SetFocus;
    Memo.SelStart := nPos;
    Memo.SelLength(Length(sWord));
  end;
end;

Example call: GoTo(Memo1, 'Anything');

Note: Haven't tested this so you might need a bit of modification...

Regards,
Viktor Ivanov
0
 
LVL 1

Expert Comment

by:BlackDeath
ID: 1341594
hi, elbaid.
try this:


procedure TForm1.FindDialog1Find(Sender: TObject);
var Buff, P, FT : PChar;
    BuffLen     : Word;
begin
  with Sender as TFindDialog do begin
    GetMem(FT, Length(FindText) + 1);
    StrPCopy(FT, FindText);
    BuffLen := Memo1.GetTextLen + 1;
    GetMem(Buff, BuffLen);
    Memo1.GetTextBuf(Buff, BuffLen);
    if Memo1.SelStart <> 0 then
      P:= Buff + Memo1.SelStart + Memo1.SelLength
    else
      P := Buff;
    P:= StrPos(P, FT);
    if P = NIL then MessageBeep(0)
    else
    begin
       Memo1.SelStart:= P - Buff;
       Memo1.SelLength:= Length(FindText);
    end;
    FreeMem(FT, Length(FindText) + 1);
    FreeMem(Buff,BuffLen);
    Memo1.SetFocus;
  end;
end;

this ain't case insensitive. to do this, you gotta change it a little bit.
if you want to find wrapping words, you will have to replace each #13#10 with nothing i.e. an empty string. if you need a StrReplace func, tell us.

you will also have to implement the "searching upwards" by yourself.
anyway, this is quite fast.

i'll see if i find some time tonight to improve it.

so long,

Black Death.

0
 
LVL 1

Expert Comment

by:BlackDeath
ID: 1341595
hi, elbaid.
try this:


procedure TForm1.FindDialog1Find(Sender: TObject);
var Buff, P, FT : PChar;
    BuffLen     : Word;
begin
  with Sender as TFindDialog do begin
    GetMem(FT, Length(FindText) + 1);
    StrPCopy(FT, FindText);
    BuffLen := Memo1.GetTextLen + 1;
    GetMem(Buff, BuffLen);
    Memo1.GetTextBuf(Buff, BuffLen);
    if Memo1.SelStart <> 0 then
      P:= Buff + Memo1.SelStart + Memo1.SelLength
    else
      P := Buff;
    P:= StrPos(P, FT);
    if P = NIL then MessageBeep(0)
    else
    begin
       Memo1.SelStart:= P - Buff;
       Memo1.SelLength:= Length(FindText);
    end;
    FreeMem(FT, Length(FindText) + 1);
    FreeMem(Buff,BuffLen);
    Memo1.SetFocus;
  end;
end;

this ain't case insensitive. to do this, you gotta change it a little bit.
if you want to find wrapping words, you will have to replace each #13#10 with nothing i.e. an empty string. if you need a StrReplace func, tell us.

you will also have to implement the "searching upwards" by yourself.
anyway, this is quite fast.

i'll see if i find some time tonight to improve it.

so long,

Black Death.

0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:elbaid
ID: 1341596
My answer was a mix with inter's second answer and Black Death's answer, so thanks guys.  Is it possible to give some points to Black Death?

Elbaid
0
 
LVL 1

Expert Comment

by:BlackDeath
ID: 1341597
i think you could ask linda to let her split the points between us as you desire.

have a nice day,
:-)
Black Death.
0
 
LVL 1

Expert Comment

by:BlackDeath
ID: 1341598
btw:

if you look at delphi 1 - demo "textdemo", there's a unit "search.pas" which implements just what you want the borland style. i found this last night.
if you ain't got delphi 1, post your email address here and i'll mail you the sources.

so long,

Black Death.

0
 

Author Comment

by:elbaid
ID: 1341599
k cool, you can send this to elbaid@hotmail.com

thanks!

elbaid
0
 
LVL 7

Expert Comment

by:linda101698
ID: 1341600
elbaid sent me the following email:
I want to split my 150 points given to question Q.10085824 to inter and
Black Death.  50 to inter and 100 to Black Death because the question
isn't actualy answered.  They send their answers by comments.

So this question can be saved, I'd like BlackDeath to post an answer to the question.  The question can then be graded and saved in the Previously Asked Questions (PAQ).  

I'll post another question in this topic area for  inter to award him/her points for the contribution to this question.

Linda Gardner
Customer Service @ Experts Exchange.
0
 
LVL 1

Expert Comment

by:BlackDeath
ID: 1341601
ok, linda-darling. here we go.
thanx to elbaid.
greetings to inter. is this ok for you?
have a nice day - all of you,

Black Death.
0
 
LVL 1

Accepted Solution

by:
BlackDeath earned 150 total points
ID: 1341602
...
Black Death.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
System restore point 4 91
Why does formely good SQL code in Delphi 2009 not work under Windows 10? 5 87
Delphi IDE crash without error message ... 7 76
Delphi 2 51
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, just open a new email message. In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now