[fpc-pascal]CompareStr
James Mills
prologic at prologitech.com
Thu Feb 13 03:26:15 CET 2003
On Thu, Feb 13, 2003 at 02:49:49AM +0100, Iv?n Montes wrote:
> Hi,
>
> Maybe it's how it's supposed to be but if use :
>
> compareStr( 'hello', 'hello-bye' )
>
> I get 0, so they are equal.
>
> If one string is bigger than the other they should be different, isn't it?
>
> Otherways what can I use to check if two ansistrings are different?
>
> TIA, Ivan
I think this may be a bug in the compareStr function of sysUtils.
I have tested the compareStr of sysUtils, and the compStr of the Strings
unit. The Strings unit seems to do the test ok, and the result: 'hello'
< 'hello-byte'.
cheers
James
program compare;
(*
uses
sysUtils;
*)
uses
Strings;
var
(*
str1: String;
str2: String;
*)
str1: pChar;
str2: pChar;
r: Integer;
begin
str1 := 'hello';
str2 := 'hello-bye';
writeLn('str1 = ', str1);
writeLn('str2 = ', str2);
writeLn;
r := strComp(str1, str2);
if r < 0 then
begin
writeLn('str1 < str2');
end
else if r = 0 then
begin
writeLn('str1 = str2');
end
else
begin
writeLn('str1 > str2');
end;
end.
> _______________________________________________
> fpc-pascal maillist - fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
More information about the fpc-pascal
mailing list