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

+ Added Octstr example

Browse Source
This commit is contained in:
michael 2002-08-30 06:37:00 +00:00
parent abe97bf0da
commit b963ca1c2a
3 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/refex/Makefile
View File

@ -40,7 +40,7 @@ OBJECTS=ex1 ex2 ex3 ex4 ex5 ex6 ex7 ex8 ex9 ex10 ex11 ex12 ex13 ex14 \
ex67 ex68 ex69 ex70 ex71 ex72 ex73 ex74 ex75 ex76 ex77 ex78 ex79 \
ex80 ex81 ex82 ex83 ex84 ex85 ex86 ex87 ex88 ex89 \
ex90 ex91 ex92 ex93 ex94 ex95 ex96 ex97 ex98 ex99 ex100 ex101 ex102\
ex103 ex104 ex105 ex106 ex107 ex108 ex109 ex110 ex111
ex103 ex104 ex105 ex106 ex107 ex108 ex109 ex110 ex111 ex112
TEXOBJECTS=$(addsuffix .tex, $(OBJECTS))

3
docs/refex/README
View File

@ -113,4 +113,5 @@ ex107.pp contains an example of the IndexDWord function.
ex108.pp contains an example of the IndexChar function.
ex109.pp contains an example of the MoveChar0 function.
ex110.pp contains an example of the Real2Double function.
ex111.pp contains an example of the include/exclude functions.
ex111.pp contains an example of the include/exclude functions.
ex112.pp contains an example of the OctStr function.

14
docs/refex/ex112.pp Normal file
View File

@ -0,0 +1,14 @@
Program example112;
{ Program to demonstrate the OctStr function }
Const Value = 45678;
Var I : longint;
begin
For I:=1 to 10 do
Writeln (OctStr(Value,I));
For I:=1 to 16 do
Writeln (OctStr(I),3);
end.