mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 18:51:53 +01:00
24 lines
613 B
ObjectPascal
24 lines
613 B
ObjectPascal
Program Example9;
|
|
|
|
Uses strings;
|
|
|
|
{ Program to demonstrate the StrIComp function. }
|
|
|
|
Const P1 : PCHAR = 'This is a pchar string.';
|
|
P2 : PCHAR = 'This is a PCHAR string.';
|
|
P3 : PCHAR = 'tHiS iS aLsO a PCHAR string';
|
|
p4 : pchar = 'AAbcd';
|
|
p5 : pchar = 'AEbcd';
|
|
|
|
Var L : Longint;
|
|
|
|
begin
|
|
If StrIComp (P1,P2)<>0 then writeln ('Something wrong here !');
|
|
Write ('P2 and P3 match in their first ');
|
|
L:=1;
|
|
While StrLIComp (P2,P3,L)=0 do inc(L);
|
|
Dec(L);
|
|
Writeln (L,' characters, case insensitive.');
|
|
if strIcomp(p4,p5)=0 then writeln ('This can''t happen!');
|
|
end.
|