mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-05 15:52:41 +02:00
38 lines
525 B
ObjectPascal
38 lines
525 B
ObjectPascal
unit WrongForwardDefinitions;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
PMyInteger = ^TMyInteger;
|
|
TMyArray = array[0..MaxNumber] of TMyInteger;
|
|
|
|
const
|
|
MaxNumber = 3;
|
|
|
|
type
|
|
TMyRecord = record
|
|
i: TMyInteger;
|
|
Next: PMyRecord;
|
|
end;
|
|
|
|
var AnArray: array[0..EndValue] of char;
|
|
const EndValue = TMyInteger(1);
|
|
|
|
type
|
|
TMyInteger = longint;
|
|
PMyRecord = ^TMyRecord;
|
|
TMyFunc = procedure(i: integer);
|
|
MyNilFunc = TMyFunc(0);
|
|
Func2 = MyNilFunc;
|
|
Func3 = Func2;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|