paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 20:30:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

added setlength example

Browse Source
This commit is contained in:
michael 1999-06-04 20:08:10 +00:00
parent 783b0d4eca
commit 9357ff02bf
3 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/refex/Makefile
View File

@ -38,7 +38,7 @@ OBJECTS=ex1 ex2 ex3 ex4 ex5 ex6 ex7 ex8 ex9 ex10 ex11 ex12 ex13 ex14 \
ex41 ex42 ex43 ex44 ex45 ex46 ex47 ex48 ex49 ex50 ex51 ex52 ex53 \
ex54 ex55 ex56 ex57 ex58 ex59 ex60 ex61 ex62 ex63 ex64 ex65 ex66 \
ex67 ex68 ex69 ex70 ex71 ex72 ex73 ex74 ex75 ex76 ex77 ex78 ex79 \
ex80 ex81 ex82 ex83
ex80 ex81 ex82 ex83 ex84 ex85
TEXOBJECTS=$(addsuffix .tex, $(OBJECTS))

2
docs/refex/README
View File

@ -86,4 +86,4 @@ ex80.pp contains an example of the High/Low functions.
ex81.pp contains an example of the HexStr function.
ex82.pp contains an example of the BinStr function.
ex83.pp contains an example of the Assigned function.
ex84.pp contains an example of the Library keyword.
ex84.pp contains an example of the Library keyword.ex85.pp contains an example of the SetLength function.

11
docs/refex/ex85.pp Normal file
View File

@ -0,0 +1,11 @@
Program Example85;
{ Program to demonstrate the SetLength function. }
Var S : String;
begin
FillChar(S[1],100,#32);
Setlength(S,100);
Writeln ('"',S,'"');
end.