浏览代码

+ 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.