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