try except bei TFileStream im Thread

Thema durchsuchen

Ansicht

Themen-Optionen

try except bei TFileStream im Thread

Ein Thema von Viktorii · begonnen am 10. Mär 2011 · letzter Beitrag vom 10. Mär 2011

Vorheriger Beitrag

Nächster Beitrag

wicht

Registriert seit: 15. Jan 2006
Ort: Das schöne Enger nahe Bielefeld
809 Beiträge

Delphi XE Professional

AW: try except bei TFileStream im Thread

10. Mär 2011, 10:19

Hi, ich würds so machen:

zusammenfalten · markieren

Delphi-Quellcode:

			try

  FileStream := TFileStream.Create(Path + Filename, fmCreate);

  try

    // Aus '2' habe ich SizeOf(Char) gemacht

    FileStream.Write(MyString[1], Length(MyString) * SizeOf(Char));

  finally

    FileStream.Free;

  end;

except

  on E:Exception do

    Application.MessageBox(PWideChar('FileStream Exception: ' + e.Message) , 'Exception', MB_OK + MB_ICONQUESTION);

end;