blob: 3ef75ded0c6a5e9efaa9ada3c72df170c0af199d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Program Example6;
Uses strings;
{ Program to demonstrate the StrEnd function. }
Const P : PChar = 'This is a PCHAR string.';
begin
If Longint(StrEnd(P))-Longint(P)<>StrLen(P) then
Writeln('Something is wrong here !')
else
Writeln ('All is well..');
end.
|
