mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 12:50:31 +02:00
21 lines
495 B
ObjectPascal
21 lines
495 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';
|
|
|
|
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.');
|
|
end.
|