Die Warnmeldung würdest du auch weg bekommen wenn du vor dem Try-Except-Block die Variable auf nil setzt. Ansonsten ist die Meldung schon berechtigt. Angenommen bei der ersten Anweisung im Block (FFilePath:= dlgOpenSQL.FileName
tritt eine
Exception auf (ich weiß das es unwahrscheinlich ist) so wird versucht im except teil aFStream.Free aufzurufen obwohl aFStream irgendwo ins Nirwana zeigt und somit kracht es gewaltig.
also einfach so:
Delphi-Quellcode:
aFStream :=
nil;
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;