Ein Fabrikhalle mit Dächer.
Code: Alles auswählen
type
pi = ^integer;
ppi = ^pi;
pppi = ^ppi;
ppppi = ^pppi;
pppppi = ^ppppi;
var
p: ^pppppi;
begin
New(p);
New(p^);
New(p^^);
New(p^^^);
New(p^^^^);
New(p^^^^^);
p^^^^^^ := 123;
Caption := p^^^^^^.ToString;
Dispose(p^^^^^);
Dispose(p^^^^);
Dispose(p^^^);
Dispose(p^^);
Dispose(p^);
Dispose(p);
end;