mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-22 17:02:35 +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.
|
|
|