Merkwürdiger Source Code? Kann mir das jemand erklären?

[negaH]

Delphi-Quellcode:

Procedure Mama(Familie: TGesellschaft);
  Var Muttermilch: TFunktion;

  Procedure Kind;
    Begin
      Familie.AllesTerrorisieren;
      Muttermilch.Besaufen;
      Liebe.Bekommen;  // <<< geht nicht !!!
    End;

  Var Liebe: TGefuehle;

  Begin
    Familie.Angstmodus.Aktivieren;
    Muttermilch.Ausschenken;
    Liebe.Abschalten;
    Kind;
  End;

Na ist doch ein ideales Beipsiel !!
Du hast Liebe als Variable erst NACH procedure Kind deklariert, ergo wolltest du auch das procedure Kind keinen Zugriff darauf bekommen darf. Denn du willst ja Fehler vermeiden oder ? Du kompilierst es und stellst fest geht nicht, ups, darf Kind Liebe benutzen, nein? gut eine Fehler, ja? machtnichts schreiben wirs um

Delphi-Quellcode:

procedure Mama(Familie: TGesellschaft);
var 
  Muttermilch: TFunktion;
  Liebe: TGefuehle;

  procedure Kind;
  Begin
    Familie.AllesTerrorisieren;
    Muttermilch.Besaufen;
    Liebe.Bekommen;  // <<< geht doch !!!
  end;


begin
  Familie.Angstmodus.Aktivieren;
  Muttermilch.Ausschenken;
  Liebe.Abschalten;
  Kind;
end;

Gruß hagen