Das geht auch bei lokalen Variablen.
Allerdings heißen diese Variablen dann "Zuweisbare typisierte Konstanten" und muss in den Projectoptionen
eingeschaltet werden.
Ich nutze das z.B. um sicherzustellen, dass eine Procedure/Funktion nicht rekursiv aufgerufen wird.
Delphi-Quellcode:
procedure Foo();
const // <--- const nicht var !
lLock: Boolean = false;
begin
if lLock then exit;
lLock := true;
try
..
..
finally
lLock := false;
end;
end;
alex