Makro-Ersatz

[FAlter]

Hi,

wie kann ich ungefähr sowas realisieren, wo Delphi ja keine Makros kennt (ohne einen Präprozessor zu benutzen):

Delphi-Quellcode:

procedure foo;
var
  bar: Integer;

  procedure foo2; inline;
  begin
    inc(bar);  
  end;

begin
  ...
  foo2;
  ...
end;

Zitat:

[Pascal Fehler] foobar.pas(123): E2449 Verschachtelte Inline-Routine 'foo2' kann nicht auf Variable 'bar' außerhalb des Gültigkeitsbereichs zugreifen

Nun ja, ich könnte inline entfernen, aber da da nur inc drinsteht, ist das ein wenig überladen. Da der Name foo2 allerdings aussagekräftiger ist, möchte ich nicht direkt inc schreiben, zumal foo2 keinen Parameter verlangt. Mit Makros wäre mein Problem ja lösbar, einfach sirekt an der Stelle foo2 stattdessen inc(bar) einsetzen. Aber das macht Delphi nicht mit. An der Stelle, wo foo2 aufgerufen wird, gibt es kein anderes SP, damit sollte es also keine Probleme geben.

Gibt es also eine bessere Lösung als direkt inc(bar) reinzuschreiben oder nicht-inline-procs?

Mfg
FAlter