Browse Source

+ Changes after remarks from Christopher Oezbek

michael 26 years ago
parent
commit
4c198a7f3d
5 changed files with 20 additions and 3 deletions
  1. 1 0
      docs/refex/README
  2. 2 1
      docs/refex/ex19.pp
  3. 1 1
      docs/refex/ex70.pp
  4. 1 1
      docs/refex/ex82.pp
  5. 15 0
      docs/refex/ex96.pp

+ 1 - 0
docs/refex/README

@@ -98,3 +98,4 @@ ex92.pp contains an example of the GetResourceStringName function.
 ex93.pp contains an example of the Hash function.
 ex94.pp contains an example of the SetResourceStringValue function.
 ex95.pp contains an example of the SetResourceStrings function.
+ex96.pp contains an example of the Assigned function.

+ 2 - 1
docs/refex/ex19.pp

@@ -7,5 +7,6 @@ begin
   { It will print True when an empty line is put in,
     and false when you type a non-empty line.
     It will only stop when you press enter.}
-  Writeln (eoln);
+  While not Eoln do
+    Writeln (eoln);
 end.

+ 1 - 1
docs/refex/ex70.pp

@@ -1,4 +1,4 @@
-Program Example54;
+Program Example70;
 
 { Program to demonstrate the Trunc function. }
 

+ 1 - 1
docs/refex/ex82.pp

@@ -1,4 +1,4 @@
-Program example81;
+Program example82;
 
 { Program to demonstrate the BinStr function }
 

+ 15 - 0
docs/refex/ex96.pp

@@ -0,0 +1,15 @@
+Program Example96;
+
+{ Program to demonstrate the Assigned function. }
+
+Var P : Pointer;
+
+begin
+  If Not Assigned(P) then
+    Writeln ('Pointer is initially NIL');
+  P:=@P;
+  If Not Assigned(P) then
+    Writeln('Internal inconsistency')
+  else
+    Writeln('All is well in FPC')
+end.