@Delphi-Neuling:
weise einfach direkt zu Begin der Prozedur/Funktion (also gleich nach dem ersten Begin) den gewünschten Wert zu.
Delphi-Quellcode:
procedure Foo();
var xyz: Integer;
begin
xyz := 123;
{...}
end;
des sollte eigentlich die beste/einfachste Variante sein.
@Zuweisbare typisierte Konstanten:
So wären außerdem alle Konstantan davon betroffen,
was einige Nachteile mit sich bringen kann
Dann doch lieber globale Variablen (innerhalb des Implementation-Blocks haben sie auch keine Auswirkungen außerhalb der
Unit)
Und mit passenden Variablennamen kommt man auch sonst mit nichts in Konflikte.
Delphi-Quellcode:
implementation
{...}
var Procedure_Foo_Lock: Boolean = false;
procedure Foo();
begin
if Procedure_Foo_Lock then exit;
Procedure_Foo_Lock := true;
try
{...}
finally
Procedure_Foo_Lock := false;
end;
end;