Solved

Counting caracters from cursor position in text to specific string.

Posted on 2008-10-30
8
332 Views
Last Modified: 2010-04-05
Atached code count to positon when specific string in text is  present.
But in text i can have more times same  text is present:

example:one two three four five one six seven one

1. If i positon  cursor on the end of text then my result must be " 0 " and not " 38 " 
(number of characters to first time srched string is used).
2.if there is no srched string in text i  need to set a bolean varible "noText" to true.
3. if i have two lines when i put curor on the begining of second line it gives me two characters more than on the end of first line

What to do to resolve point 1,2 and 3?






procedure TForm1.Button1Click(Sender: TObject);

var cp: Integer;

    p: Integer;

begin

  p := Pos(Edit1.Text, Memo1.Lines.Text) + Length(Edit1.Text);

  cp := Memo1.SelStart;

  if cp >= p then

    Edit2.Text := IntToStr((cp - p)+1)

  else

    Edit2.Text := 'what should be here?';

end;

Open in new window

0
Comment
Question by:pr2501
  • 5
  • 3
8 Comments
 
LVL 37

Expert Comment

by:Geert Gruwez
ID: 22840093
hmm it is difficult to understand what you want

to start looking for text from a certain position use PosEx
Same as Pos but with a third parameter Offset

are you looking for a text from a certain position in a memo ?

cp := PosEx(Edit1.Text, Memo1.Text, Memo1.SelStart);

position of Edit1.Text in Memo1.Text and start looking from start of selection in Memo1
0
 

Author Comment

by:pr2501
ID: 22840379
I have to look backwards from cursor position in text with more lines..
0
 
LVL 37

Expert Comment

by:Geert Gruwez
ID: 22840393
backwards ?
from the cursor position to the text ?
and give the beginning or the end of the text ?
0
 
LVL 37

Expert Comment

by:Geert Gruwez
ID: 22840401
and do you want the absolute position or the relative position to the cursor ?
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:pr2501
ID: 22840480

My text>
one two three four five  six seven one eight
If i srch for "one"> when i put cursor before "two" i must get 1 or if i put cursor before "thre" i must get 5. Then if i put cursor before "eighht" i must get 1. And if i srch for "ten" i must get 0.
 
0
 
LVL 37

Expert Comment

by:Geert Gruwez
ID: 22840781
use the FastStrings unit
this has routine for searching backwards:
http://www.koders.com/delphi/fidFB386C5C240FD5E72013C882ADD7600FDF60E6C7.aspx?s=socket

function FastPosBack(const aSourceString, aFindString : string; const aSourceLen, aFindLen, StartPos : Integer) : Integer;

this should help you out
0
 
LVL 37

Accepted Solution

by:
Geert Gruwez earned 250 total points
ID: 22840813
use it like

cp := FastPosBack(Memo1.Text, Edit1.Text, Length(Memo1.Text), Length(Edit1.Text), Memo1.SelStart);

this will find the start of the text
if it returns non zero :

if cp > 0 then
  Result := Memo1.SelStart - (cp + Length(Edit1.Text));

0
 

Author Comment

by:pr2501
ID: 22855963
Thank you



procedure TForm1.SpeedButton1Click(Sender: TObject);
 

var

 cp:integer ;

begin

cp := form1.FastPosBack(Memo1.Text, Edit1.Text, Length(Memo1.Text), Length(Edit1.Text), Memo1.SelStart);

   if cp > 0 then

   cp := Memo1.SelStart - (cp + Length(Edit1.Text));

   edit2.Text:=inttostr(cp);

end;

Open in new window

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

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
I designed this idea while studying technology in the classroom.  This is a semester long project.  Students are asked to take photographs on a specific topic which they find meaningful, it can be a place or situation such as travel or homelessness.…
Delivering innovative fully-managed cloud services for mission-critical applications requires expertise in multiple areas plus vision and commitment. Meet a few of the people behind the quality services of Concerto.

948 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

17 Experts available now in Live!

Get 1:1 Help Now