fpcdocs/refex/ex15.pp


1
2
3
4
5
6
7
8
9
10
11

Program Example15;

{ Program to demonstrate the Delete function. }

Var
  S : String;

begin
  S:='This is not easy !';
  Delete (S,9,4); { S:='This is easy !' }
end.