Thema: Delphi Makro-Ersatz

Einzelnen Beitrag anzeigen

Benutzerbild von FAlter
FAlter

Registriert seit: 21. Jul 2004
Ort: Ostfildern
1.095 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#1

Makro-Ersatz

  Alt 24. Nov 2007, 16:24
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
Felix Alter
Japanurlaub 2015
  Mit Zitat antworten Zitat