Exception?

[Duffy]

Hallo Taladan und allen Anderen,
eine sehr schöne Methode einen Stream zu öffnen, habe ich von Hagen Reddmann.
Hier hat man daß öffnen oder kreieren einer Datei in einem Statement.

Delphi-Quellcode:

const 
  OpenFlags: array[Boolean] of Integer = (fmCreate or fmShareExclusive, fmOpenReadWrite or fmShareExclusive); 
var 
  FileStream: TFileStream; 
begin 
  try
    // Datei öffnen 
    FileStream := TFileStream.Create(FileName, OpenFlags[FileExists(FileName)]); 
  except 

...