Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Exception bei writeln

    Delphi
    by Thomas F, 9. Dez 2008
  procedure TForm1.FormShow(Sender: TObject);
  var f:Textfile;
  begin
  try
  assignfile(f,'Test.txt');
  rewrite(f);
  writeln(f,'blablabla');
  closefile(f);
  except
  closefile(f);
• Forum: Object-Pascal / Delphi-Language

  Re: Exception bei writeln

    Delphi
    by Thomas F, 9. Dez 2008
  Oh Mann :wall:
  
  Einfach das FileCreate weglassen, dann gehts !
  
  Danke
  
  
  procedure TForm1.FormShow(Sender: TObject);
  var f:Textfile;
  begin
• Forum: Object-Pascal / Delphi-Language

  Exception bei writeln

    Delphi
    by Thomas F, 9. Dez 2008
  Wieso funktioniert der folgende Code nicht ?
  Erst wenn ich das Programm zum zweiten Mal starte und die Datei 'Test.txt' schon existiert,
  gibt es keine Exception ! :roll:
  Wenn ich die Datei 'Test.txt' lösche und das Programm starte kommt diese
  Meldung: Exception .......'E/A-Fehler 32'
  
  procedure TForm1.FormShow(Sender: TObject);
  var f:Textfile;
  begin
  assignfile(f,'Test.txt');