mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-05 14:12:35 +02:00
34 lines
426 B
ObjectPascal
34 lines
426 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;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|