"Gekapselte" Prozeduraufrufe innerhalb einer Prozedur

[Opa Knack]

Hallo,

aus grauer Vorzeit habe ich die Erinnerung, dass ich Prozeduren innerhalb von Prozeduren kapseln kann, also z. B.

Delphi-Quellcode:

procedure TuEtwas;
begin

    procedure IrgendwasInnerhalb(Parameter);
    begin
    ....
    end;

    IrgendwasInnerhalb(Parameter1);
    IrgendwasInnerhalb(Parameter2);
    ...

end;

Nun bräuchte ich ein ähnliches Konstrukt, habe aber irgendwie den Wurm drin und kriege es nicht ans Laufen. Hintergrund ist, dass ich in der "Haupt"-Procedure Variablen definiere, die ich nicht global deklarieren will und die auch nicht als Parameter übergeben werden sollen. Über das obige Konstrukt kann ich diese Variablen mehr oder weniger direkt mitnutzen, somit habe ich mir diesen Umweg gespart. In der Praxis sieht das so aus, dass ich in der "Unter"-Procedure StringGrids auslese und diese zwecks Weitergabemöglichkeit in eine INI-Datei speichere (oder XML - man will ja mit der Zeit gehen *g*). Da ich mehrere Grids habe und jedes Grid mitunter einiges an Daten enthält, will ich möglichst performant alle Grids durchlaufen und dabei möglichst wenige Variablen verschwenden (Kinderlandverschickung dauert halt zu lange).

Hat jemand eine Idee, wo in meinem Quellcode oben der Fehler liegt?

Danke und Gruß
Opa

[negaH]

das erste begin ist falsch.

Delphi-Quellcode:

procedure x;
var
  z: integer;

  procedure y;
  begin
    z := z +1;
  end;

begin
  z := 0;
  y;
end;

[Opa Knack]

Hallo,

manchmal ist die Antwort so nahe, dass man sich an ihr beinahe die Nase anhaut...

Danke Dir :)

Gruß
Opa