Geschachtelte Prozeduren/Funktionen

[sirius]

Zitat von ToFaceTeKilla:

Wie muss ich mir das vorstellen?

So

Delphi-Quellcode:

function Master(...):(...);
  function Slave1(...):(...);
  begin  
    function Slave1(...):(...);
  end;
var //Master
usw.

Auch sehr schön dafür:

Delphi-Quellcode:

procedure Master;
 procedure Nested
 begin
   ...
 end; 
begin
  if Bedingung then
  begin
    Nested;
    //und jetzt etwas anders
  end
  else 
  begin
    //zuerst etwas anders
    Nested;
  end;
end;