USE_BEFORE_DEF kann nicht ausgeschaltet werden ?

[charly52]

Hi all,

ich möchte in folgendem Code

Delphi-Quellcode:

begin
  IF Gesperrt0(aCol,-1) THEN
  BEGIN
    aFarbe:= DG0_AbtlNamen.Canvas.Brush.Color;
  END;


  Dann was tun
  

{$WARN USE_BEFORE_DEF OFF}
  IF Gesperrt0(aCol,-1) THEN DG0_AbtlNamen.Canvas.Brush.Color:= aFarbe;
{$WARN USE_BEFORE_DEF ON}
end;

die Warnung

[dcc32 Warning] xxxxxx.PAS(281): W1036 Variable 'aFarbe' might not have been initialized

loswerden. Hier in einem Tutorial habe ich gefunden, daß USE_BEFORE_DEF OFF genau dafür zuständig sei.
Scheint aber nicht so zu sein, da ich die Warnungen immer noch bekomme.
Ich finde auch keinen anderen Eintrag in der Liste der Warnungen.

{$WARN USE_BEFORE_DEF ON}
Warnung: Variable '<Element>' ist möglicherweise nicht initialisiert worden
Diese Warnung wird angezeigt, wenn einer Variablen nicht in jedem Codepfad, der zu der Stelle führt, an der sie verwendet wird, ein Wert zugewiesen wird.


Danke Charly