compare a string variable with a string literal

compare a string variable with a string literal

[H�x�d��m�]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 519 bytes --]

How do you compare a string variable with a string literal??  It's not
working.

Please post and email response if possible.

Hexadecimal <hex16@usa.net>

--
----------------------------------------------------
Reach me by ICQ. My ICQ# is 6014042 or,
* Page me: http://wwp.mirabilis.com/6014042 or,
* Send me E-mail Express directly to my computer screen
6014042@pager.mirabilis.com
Download ICQ at http://www.icq.com/
H�x�d��m� <NOSPAMhex16@usa.net>
----------------------------------------------------

Re: compare a string variable with a string literal

[Matthew Heaney]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 410 bytes --]

"H�x�d��m�" <NOSPAMhex16@usa.net> writes:

> How do you compare a string variable with a string literal??  It's not
> working.

Please a small code fragment.  We can't help you if you don't post code.

You compare string objects the same way you comare any other object -
using the equality operator "=":

procedure Test (S : in out String) is
begin
   if S = "matt" then ...

What's the problem?

Re: compare a string variable with a string literal

[Dale Stanbrough]

Someone wrote:

" How do you compare a string variable with a string literal??  It's not
  working.
  
  Please post and email response if possible."


It does work very well. No doubt you are doing...

   X : string (1..100);
   Last : Natural;


...

   Get_Line (X, Last);


...

   if X = "hello" then...


this will of course return false, because a 5 character string cannot equal 
a 100 character string. Ada strings _do not_ work like C strings - there is
no terminating character at the end of the valid input.

If you want to store variable length strings then use ada.strings.unbounded...


   with ada.strings.unbounded; use ada.strings.unbounded;

   ...
   X : string (1..100);
   Last : Natural;

   Y  : unbounded_string;


   get_line (x, last);
   y : = to_unbounded_string (X (1..last));

   if y = "hello" then

this _will_ do what you want it to.


Dale