fpcdocs/stringex/ex1.pp


1
2
3
4
5
6
7
8
9
10
11
12

Program Example1;

Uses strings;

{ Program to demonstrate the StrLen function. }

Const P : PChar = 'This is a constant pchar string';

begin
  Writeln ('P         : ',p);
  Writeln ('length(P) : ',StrLen(P));
end.