Compiler-Warnung: ...ist möglicherweise nicht initialisiert

[Martin K]

Ich verstehe es nicht, es kommt zu folgender Warnmeldung:

Zitat:

[Warnung] Unit1.pas(39): Variable 'Obj' ist möglicherweise nicht initialisiert worden

Dieser Code (vereinfacht):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer; Obj: TObject;
begin
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    if Memo1.Lines[i]='Parent' then
      Obj:=Self       // hier initialisiert
    else
    if Memo1.Lines[i]<>'' then
      Obj:=FindComponent(Memo1.Lines[i]) // hier auch initialisiert
    else
      Continue;      // nicht initialisiert, aber Schleife wird ja auch fortgesetzt
    if IsPublishedProp(Obj,'Font') then // <--- hier Warnmeldung ---
      {...}
  end;
end;

Kann mir das einer erklären

[fwsp]

es ist in ner if-anweisung und damit logischer weise eventuell nicht initialisiert, da die if ja nicht true sein muss
wenn du weißt das es true wird, kannst du es einfach ignorieren.

[Martin K]

Aber ich komme doch gar nicht in die IF-Anweisung, wenn Obj nicht initialisiert ist:

Delphi-Quellcode:

{..}
    else
      Continue;  // nicht initialisiert, aber ich komme dann auch nicht in die IF-Anweisung
    if IsPublishedProp(Obj,'Font') then
   {..}

Oder?

Zitat von fwsp:

es ist in ner if-anweisung und damit logischer weise eventuell nicht initialisiert, da die if ja nicht true sein muss
wenn du weißt das es true wird, kannst du es einfach ignorieren.

Hä?
Verstehe ich nicht.
Was hat das denn damit zu tun, ob die IF-Anweisung true oder false ergibt?
Überprüfen tut er die doch immer...

..außer, bei Continue !?!?

[SirThornberry]

Continue ist halt so eine Ausnahme die vom Compiler nicht berücksichtigt wird (ist ja nur ein besseres goto)

[himitsu]

Delphi-Quellcode:

else 
      Continue;

... versuchst mal so ... es muß einfach nur sichergestellt werden, das obj vorher was zugewiesen wurde, dann mekert delphi nicht:

Delphi-Quellcode:

else 
begin
      Continue;
      obj := nil;
end;

[Martin K]

Okay, der Compiler berücksichtigt das Continue nicht.
Das war's.

Aber zu einem Fehler kann es beim Ausführen dieses Codes nicht kommen ?!?

@himitsu:

Du meinst wohl:

Delphi-Quellcode:

{...}
   Obj := nil;  // nicht self
{...}

[Hawkeye219]

Mich würde ein Continue, das von ausführbaren Anweisungen gefolgt wird, eher verwirren.
Eine Initialisierung vor der Schleife finde ich persönlich sauberer.

Gruß Hawkeye

[Martin K]

Ja, das denk ich auch.
Also so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i: integer; Obj: TObject; 
begin
  Obj := nil; //<-- hier hinzugefügt
  for i:=0 to Memo1.Lines.Count-1 do 
  begin 
    if Memo1.Lines[i]='Parent' then 
      Obj:=Self
    else 
    if Memo1.Lines[i]<>'' then 
      Obj:=FindComponent(Memo1.Lines[i])
    else 
      Continue;
    if IsPublishedProp(Obj,'Font') then
      {...} 
  end; 
end;

[Mackhack]

Zitat von Hawkeye219:

Eine Initialisierung vor der Schleife finde ich persönlich sauberer.

Gruß Hawkeye

Da hab ich grad mal ne Frage an euch...:

Ist es sauberer, besser,... direkt am Anfang einer Function/Procedure Variablen zu initialisieren oder bevor sie wirklich zum Einsatz kommen?

Delphi-Quellcode:

Var
  I : Integer;
Begin
  I := 0;
  For I := 0 To...
  ...
End;

oder so?

Delphi-Quellcode:

Var
  ...
  ...
  ...
  I := 0;
  For I := 0 To...
  ...

[SirThornberry]

dein Beispiel ist etwas daneben. Denn vor einer "For-Schleife" ist es völlig überflüssig die Zählvariable zu initialisieren weil der Wert niemals verwendet wird (der Compiler wird dir auch eine Meldung ausgeben)