Also irgendwie sieht euer Code komisch aus.
Dieses
bStreamOK stört mich zum Beispiel. Das kann man doch so lösen:;
Delphi-Quellcode:
datei := TFileStream.Create(...);
if Assigned(datei)
then
begin
try
try
BytesWritten := datei.
Write(...);
except
raise Exception....
finally
datei.Free;
end;
end;
Desweiteren würde ich die Daten/Code von der Oberfläche trennen, also den Code in eine separate Methode auslagern, die von der Schaltfläche aufgerufen wird:
Delphi-Quellcode:
procedure Tfrm_main.Button1Click(Sender: TObject);
begin
try
SchreibeDatei(...);
except
on E:
Exception do ShowMessage(E.
Message);
end;