mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 03:12:45 +02:00
17 lines
162 B
ObjectPascal
17 lines
162 B
ObjectPascal
program delphi_autodereference1;
|
|
|
|
{$mode Delphi}
|
|
|
|
type
|
|
TRec = record
|
|
v: char;
|
|
end;
|
|
PRec = ^TRec;
|
|
|
|
var
|
|
p: PRec;
|
|
begin
|
|
p.v{declaration:TRec.v};
|
|
end.
|
|
|