count EOL character

Dev Shed Forums Sponsor:

July 1st, 2004, 05:49 PM

lloydie-t

Contributing User

Join Date: May 2002

Location: UK

Posts: 563

Time spent in forums: 1 Day 23 h 54 m 22 sec
Reputation Power: 12

count EOL character

I hve an app which reads ascii text from a serial port and recognises LF (line feed) as the end of line. I have a problem where one of the interfaces actually produces a single record over two lines. This means I have to process the data after the second LF. How would I modify the following code to take account of this.

Code:

procedure TMainForm.nrComm1AfterReceive(Com: TObject; Buffer: Pointer;
  Received: Cardinal);
var i:integer;
EolnChar:char;
begin
EolnChar:=#10; //end of string indicator.
  for i:=0 to Received-1 do
    if PChar(Buffer)[i]=EolnChar
      then begin
        //CR detected .... do something
        //sSearch := buffer;
        ProcessSearch(sSearch);
        sSearch := '';
      end
       //else accumulate string ...
       else sSearch:=sSearch+PChar(Buffer)[i];
end;

July 1st, 2004, 06:26 PM

Scorpions4ever

Banned ;)

Dev Shed God 9th Plane (9000 - 9499 posts)

Join Date: Nov 2001

Location: Woodland Hills, Los Angeles County, California, USA

Posts: 9,382

Time spent in forums: 1 Month 4 Weeks 1 Day 20 h 31 m 48 sec
Reputation Power: 4080

Is there some way for you to know that the data is continued on the next line or will you know only after you run ProcessSearch on it?

__________________
Up the Irons
What Would Jimi Do? Smash amps. Burn guitar. Take the groupies home.
"Death Before Dishonour, my Friends!!" - Bruce D ickinson, Iron Maiden Aug 20, 2005 @ OzzFest
Down with Sharon Osbourne

July 2nd, 2004, 03:00 AM

lloydie-t

Contributing User

Join Date: May 2002

Location: UK

Posts: 563

Time spent in forums: 1 Day 23 h 54 m 22 sec
Reputation Power: 12

by veiwing the text using vedit it seems as though cr/lf indicates the next line. unfortunately both lines can vary in length.
i thought creating a var to count the lines and then process the data. something like

Code:

procedure TMainForm.nrComm1AfterReceive(Com: TObject; Buffer: Pointer;
  Received: Cardinal);

var 
i:integer;
j:integer;
EolnChar:char;
begin
EolnChar:=#10; //end of string indicator.
  for i:=0 to Received-1 do
    if PChar(Buffer)[i]=EolnChar
      then begin
        j++
            if j = 1 then begin
                     //CR detected .... do something
                     //sSearch := buffer;
                     ProcessSearch(sSearch);
                     sSearch := '';
                     j := 0;
           end
      end
       //else accumulate string ...
       else sSearch:=sSearch+PChar(Buffer)[i];
end;

Although I do not have time to try it. WhaDaYaTink?

Viewing: Dev Shed Forums > Programming Languages - More > Delphi Programming > count EOL character

« Previous Thread | Next Thread »

Developer Shed Advertisers and Affiliates

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump