30 lines
521 B
Plaintext
30 lines
521 B
Plaintext
procedure super;
|
|
var
|
|
f: boolean;
|
|
|
|
procedure nestedProcedure;
|
|
var
|
|
c: char;
|
|
begin
|
|
// here, `f`, `c`, `nestedProcedure` and `super` are available
|
|
end;
|
|
procedure commonTask;
|
|
var
|
|
f: boolean;
|
|
begin
|
|
// here, `super`, `commonTask` and _only_ the _local_ `f` is available
|
|
end;
|
|
var
|
|
c: char;
|
|
|
|
procedure fooBar;
|
|
begin
|
|
// here, `super`, `fooBar`, `f` and `c` are available
|
|
end;
|
|
var
|
|
x: integer;
|
|
begin
|
|
// here, `c`, `f`, and `x`, as well as,
|
|
// `nestedProcedure`, `commonTask` and `fooBar` are available
|
|
end;
|