@@ -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.
@@ -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,4 +1,4 @@
-Program Example54;
+Program Example70;
{ Program to demonstrate the Trunc function. }
-Program example81;
+Program example82;
{ Program to demonstrate the BinStr function }
@@ -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;
+ Writeln('Internal inconsistency')
+ else
+ Writeln('All is well in FPC')
+end.