String comparison: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 288:
</lang>
=={{header|Component Pascal}}==
BlackBox Component Builder
<lang oberon2>
MODULE StringComparision;
IMPORT StdLog,Strings;
PROCEDURE Do*;
VAR
str1,str2,aux1,aux2: ARRAY 128 OF CHAR;
BEGIN
str1 := "abcde";str2 := "abcde";
StdLog.String(str1+" equals " + str2 + ":> ");StdLog.Bool(str1 = str2);StdLog.Ln;
str2 := "abcd";
StdLog.String(str1+" equals " + str2 + ":> ");StdLog.Bool(str1 = str2);StdLog.Ln;
StdLog.String(str1+" greater than " + str2 + ":> ");StdLog.Bool(str1 > str2);StdLog.Ln;
StdLog.String(str1+" lower than " + str2 + ":> ");StdLog.Bool(str1 < str2);StdLog.Ln;
str2 := "ABCDE";
StdLog.String(str1+" equals " + str2 + ":> ");StdLog.Bool(str1 = str2);StdLog.Ln;
StdLog.String(str1+" greater than " + str2 + ":> ");StdLog.Bool(str1 > str2);StdLog.Ln;
StdLog.String(str1+" lower than " + str2 + ":> ");StdLog.Bool(str1 < str2);StdLog.Ln;
Strings.ToLower(str1,aux1);Strings.ToLower(str2,aux2);
StdLog.String(str1+" equals (case insensitive) " + str2 + ":> ");StdLog.Bool(aux1 = aux2);StdLog.Ln;
str1 := "01234";str2 := "01234";
StdLog.String(str1+" equals " + str2 + ":> ");StdLog.Bool(str1 = str2);StdLog.Ln;
str2 := "0123";
StdLog.String(str1+" equals " + str2 + ":> ");StdLog.Bool(str1 = str2);StdLog.Ln;
StdLog.String(str1+" greater than " + str2 + ":> ");StdLog.Bool(str1 > str2);StdLog.Ln;
StdLog.String(str1+" lower than " + str2 + ":> ");StdLog.Bool(str1 < str2);StdLog.Ln;
END Do;
END StringComparision.
</lang>
Execute: ^Q StringComparision.Do<br/>
Output:
<pre>
abcde equals abcde:> $TRUE
abcde equals abcd:> $FALSE
abcde greater than abcd:> $TRUE
abcde lower than abcd:> $FALSE
abcde equals ABCDE:> $FALSE
abcde greater than ABCDE:> $TRUE
abcde lower than ABCDE:> $FALSE
abcde equals (case insensitive) ABCDE:> $TRUE
01234 equals 01234:> $TRUE
01234 equals 0123:> $FALSE
01234 greater than 0123:> $TRUE
01234 lower than 0123:> $FALSE
</pre>
=={{header|D}}==
See also [[Empty_string]]
| |||