mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 06:52:36 +02:00
31 lines
352 B
ObjectPascal
31 lines
352 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;
|
|
|
|
type
|
|
TMyInteger = longint;
|
|
PMyRecord = ^TMyRecord;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|