Преглед на файлове

+ Changes after remarks from Christopher Oezbek

michael преди 26 години
родител
ревизия
4c198a7f3d
променени са 5 файла, в които са добавени 20 реда и са изтрити 3 реда
  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.