Für Leute, die einfach so Fehlermeldungen/Ausnahmefälle rückstandslos vernichten, sollte der Pranger wieder eingefphrt werden.
Delphi-Quellcode:
try
ff:=TFileStream.Create(TempPfad,fmCreate or fmShareDenyWrite);
finally
ff.Free
end;
Und ich hoffe hier bemerkt jemand die Compilerwarnung, denn wenn es im Create knallt, raucht es womöglich nochmal beim Free ab und schon wieder der ursprüngliche Fehler durch den Folgefehler versteckt/verdeckt.
Delphi-Quellcode:
try
ff:=TFileStream.Create(TempPfad,fmOpenRead or fmShareDenyWrite);
except
Result:=false;
Exit
end;
SetLength(s,ff.Size);
try
finally
ff.Free;
end;
Ein OutOfMemory beim SetLength und schon gibt es ein Speicherleck.