Pascal and Delphi

Parsing a string. Need help

Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Mar 2009

Posts: 9

Reputation: anandkrishnantc is an unknown quantity at this point

Solved Threads: 0

anandkrishnantc anandkrishnantc is offline

Offline

Newbie Poster

Parsing a string. Need help

Mar 18th, 2009

Hello,
I am new to delphi. I have a problem. I have a string which can be of any length. Sometimes with delimiter characters for printing in new line.
Now I need to distinguish whether the received string is a number (both -ve and +ve) or any other alpha numeric value. Based on that I need to proceed further.
Any built in function to check this? or how to parse and find out its a number?

regards,
Anand

•

Join Date: Nov 2007

Posts: 68

Reputation: jsosnowski is an unknown quantity at this point

Solved Threads: 11

jsosnowski jsosnowski is offline

Offline

Junior Poster in Training

Re: Parsing a string. Need help

Mar 18th, 2009

There are a number of conversion functions the sysutils.pas unit that can test this for you and check out extractstrings in the Classes unit for a basic parsing function.

•

Join Date: Feb 2009

Posts: 473

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 114

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: Parsing a string. Need help

Mar 19th, 2009

I'm not good in delphi...but I want to help you
I looked for you problem on the web,and there was a good idea for your problem.They say:Try to convert that string into number.The StrToIntDef takes an extra argument that is returned, if the string could not be converted to int successfully.

Last edited by FlamingClaw; Mar 19th, 2009 at 10:28 am.

•

Join Date: Oct 2008

Posts: 35

Reputation: m610 is an unknown quantity at this point

Solved Threads: 1

m610

Offline

Light Poster

Re: Parsing a string. Need help

Mar 19th, 2009

Or a simple try... except...end block such as

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
function IsInteger(MyString:string):boolean;
begin
  try
    Result:=true;
    strtoint(MyString);
  except
    Result:=false;
  end;
end;
function IsInteger(MyString:string):boolean;
begin
  try
    Result:=true;
    strtoint(MyString);
  except
    Result:=false;
  end;
end;

IntToStrDef sounds easier.

Last edited by m610; Mar 19th, 2009 at 1:32 pm.

•

Join Date: Oct 2008

Posts: 35

Reputation: m610 is an unknown quantity at this point

Solved Threads: 1

m610

Offline

Light Poster

Re: Parsing a string. Need help

Mar 19th, 2009

By the way, I had not known about the StrToIntDef function until reading this thread. I checked with Help in my copy of Delphi 6, which is where I have learned most of my Delphi programming, and it did not list it. Then I looked in SysUtils.pas and found it, along with some other nice functions I wish I had known about, such as:

function StrToFloatDef(const S: string; const Default: Extended): Extended;

and

function TryStrToFloat(const S: string; out Value: Extended): Boolean;

I'll be digging around in there a bit more for other things I have missed, like the string-to-int function that converts strings, including hex-formatted strings, to integers.

•

Join Date: Mar 2009

Posts: 9

Reputation: anandkrishnantc is an unknown quantity at this point

Solved Threads: 0

anandkrishnantc anandkrishnantc is offline

Offline

Newbie Poster

Re: Parsing a string. Need help

Mar 23rd, 2009

Hello, thanks for the replies. I have a text (Widestring). Which need to be checked (no need or converting it ), if its a float or not. When I tried TexttoFloat, the program behaves worgly. No proper ending of the method.
and I see all the text ends with #0 . should I remove this trailing #0 ?

•

Join Date: Mar 2009

Posts: 9

Reputation: anandkrishnantc is an unknown quantity at this point

Solved Threads: 0

anandkrishnantc anandkrishnantc is offline

Offline

Newbie Poster

Re: Parsing a string. Need help

Mar 23rd, 2009

•

Originally Posted by m610

Or a simple try... except...end block such as
Help with Code Tags

Pascal and Delphi Syntax (Toggle Plain Text)
function IsInteger(MyString:string):boolean;
begin
  try
    Result:=true;
    strtoint(MyString);
  except
    Result:=false;
  end;
end;
function IsInteger(MyString:string):boolean; begin try Result:=true; strtoint(MyString); except Result:=false; end; end;
IntToStrDef sounds easier.

It worked. thanks.