Type
PInteger = ^ Integer;
IntegerArrayP = array of PInteger;
PIntegerArrayP = ^ IntegerArray;
var
variable: Integer ;
parrp: PIntegerArrayP;
arrp: IntegerArrayP;
begin
SetLength( arrp, 5 ) ;
parrp : = @ arrp;
For variable : = Low( arrp) to High( arrp) do
begin
arrp[ variable] : = New ( PInteger) ;
parrp^ [ variable^ ] : = variable;
WriteLn ( 'parrp: ' , arrp[ variable] ^ ) ;
end ;
end .
IFR5cGUKICAgIAlQSW50ZWdlciA9IF5JbnRlZ2VyOwogICAgCUludGVnZXJBcnJheVAgPSBhcnJheSBvZiBQSW50ZWdlcjsKICAgIAlQSW50ZWdlckFycmF5UCA9IF5JbnRlZ2VyQXJyYXk7CiAgICAKICAgIHZhcgogICAgCXZhcmlhYmxlOiBJbnRlZ2VyOwogICAgCXBhcnJwOiBQSW50ZWdlckFycmF5UDsKICAgIAlhcnJwOiBJbnRlZ2VyQXJyYXlQOwogICAgYmVnaW4KICAgIAlTZXRMZW5ndGgoYXJycCwgNSk7CiAgICAJcGFycnAgOj0gQGFycnA7CiAgICAJRm9yIHZhcmlhYmxlIDo9IExvdyhhcnJwKSB0byBIaWdoKGFycnApIGRvCiAgICAJYmVnaW4KICAgIAkJYXJycFt2YXJpYWJsZV0gOj0gTmV3KFBJbnRlZ2VyKTsKICAgIAkJcGFycnBeW3ZhcmlhYmxlXl0gOj0gdmFyaWFibGU7CiAgICAJCVdyaXRlTG4oJ3BhcnJwOiAnLCBhcnJwW3ZhcmlhYmxlXV4pOwogICAgCWVuZDsKICAgIGVuZC4=
compilation info
prog.pas(16,23) Error: Illegal qualifier
prog.pas(19,8) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
stdout