blob: 1db8e260bde2023a62a00be771c88a53eb68df7c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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.
|
