PS: @BlobFeldInDatei
Result := FileExists(Datei);
ist etwas sinnlos nutzlos, denn es muß zwangsläufig immer True zurückgeben.
Entweder knallte das TFileStream.Create und der Code kommt dort nie vorbei, oder TFileStream.Create(fmCreate) war erfolgreich und die Datei ist somit auch vorhanden.
Wenn TFileStream.Create knallt, dann bleibt auch noch der Blob-Stream schön als Speicherleck zurück.
Du meinst, das
TFileStream.Create
gehört in den Try-Finally-Block? Klingt logisch, werde ich gleich mal ändern. Dann macht auch
Result := FileExists(Datei);
Sinn, obwohl ich da natürlich genausogut schreiben könnte
Result := True;
.
Du hast meinen Code verbessert, dafür sei dir mein Dank gewiß
