Exception Handling.

[negaH]

Delphi-Quellcode:

  TEXT = 'Dies ist ein Testtext.'; 
  FILENAME = 'c:\test.txt'; 
var 
  fs: TFileStream; 
  s: String; 
begin 
  s := TEXT; 
  try  
    fs := TFileStream.Create(FILENAME, fmCreate); 
    try 
      fs.WriteBuffer(Pointer(s)^, length(s)); 
    finally 
      FreeAndNil(fs); 
    end; 
  except 
    on E: EWriteError do ShowMessage(E.Message) else 
      on E: Exception do ShowMessage(E.Message); 
  end; 
end;

Dürfte das gleiche machen. Im Grunde sollte man pro Procedure mit einem try finally und einem try except auskommen können.

Gruß Hagen