Bei der Deklaration einer Variable einen Wert definieren

[himitsu]

@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;