fpcdocs/refex/ex85.pp


1
2
3
4
5
6
7
8
9
10
11

Program Example85;

{ Program to demonstrate the SetLength function. }

Var S : String;

begin
  FillChar(S[1],100,#32);
  Setlength(S,100);
  Writeln ('"',S,'"');
end.