Verschachtelter Pointer

[Mathias]

Es ist schon interessant, wie man Pointer verschachteln kann.
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;   

[fliegermichl]

also ppi habe ich schon gebraucht aber ppppppi noch nicht. Man könnte es ja auch pipi nennen

[Winni]

Hi!

Guter Vorschlag.
Aber so piept es ordentlich:

Code: Alles auswählen

type
  pi = ^integer;
  pipi = ^pi;
  pipipi = ^pipi;
  pipipipi = ^pipipi;
  pipipipipi = ^pipipipi;

Winni