Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Counting caracters from cursor position in text to specific string.

Posted on 2008-10-30
8
Medium Priority
?
340 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 3
8 Comments
 
LVL 38

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 38

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
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
LVL 38

Expert Comment

by:Geert Gruwez
ID: 22840401
and do you want the absolute position or the relative position to the cursor ?
0
 

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 38

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 38

Accepted Solution

by:
Geert Gruwez earned 1000 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

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…
In this video, Percona Solutions Engineer Barrett Chambers discusses some of the basic syntax differences between MySQL and MongoDB. To learn more check out our webinar on MongoDB administration for MySQL DBA: https://www.percona.com/resources/we…
Suggested Courses

722 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