3
{ This program demonstrates the AnsiStrLastChar function }
11
P:='This is an PChar string.';
12
Writeln ('Last character of P is : ',AnsiStrLastChar(P));
13
L:=Longint(AnsiStrLastChar(P))-Longint(P)+1;
14
Writeln ('Length of P (',P,') is : ',L);
b'\\ No newline at end of file'