Hiho,
ich bin grad am Bereinigen der Warnmeldungen in meinem Projekt und wollte mich jetzt mal der Meldung
"[Warnung]
Unit.pas(178): Variable 'aFStream' ist möglicherweise nicht initialisiert worden" annehmen.
Delphi-Quellcode:
try
FFilePath:= dlgOpenSQL.FileName;
aFStream:= TFileStream.Create(FFilePath,fmOpenRead);
lblFile.Caption:= dlgOpenSQL.FileName;
btnProtocol.Enabled:= True;
except
on e:
Exception do
begin
MessageDlg('
Fehler beim Laden der Datei!'#13#10+e.
Message,mtError,[mbOk],0);
aFStream.Free;
end;
end;
Nun könnte ich natürlich die Pfadzuweisung und das Create vor das try verlagern, aber würde das nicht den ganzen Sinn des try..except-Blockes aufheben? Den hab ich ja gerade wegen der Dateioperation geschrieben...
