Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
9. Aug 2015
Hmmm, ich weiß nicht was da "abschmiert". Im Gegenteil, dein Programm bleibt eher stabil.
Oder wie willst du hier irgendwas in den Stream schreiben, wenn du
Keine Instanz übergeben hast
Keinen Dateinamen übergeben hast
Keine Datei erzeugen konntest
Diese Methode muss einfach abgebrochen werden, weil eine sinnvolle Weiterführung nicht möglich ist.
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
9. Aug 2015
Versuch mal die Methode zu beschreiben (dokumentieren). Wenn du einen Roman dazu schreiben musst, dann machst du dort zu viel.
Und ein try except was die gesamte Methode umschliesst, die eine echte Arbeit erledigt, ist vom Konzept her falsch.
Die Methode vorher, die diese aufruft, legt den Namen fest. Dort hätte ich eine Möglichkeit vernünftig auf diese Exceptions zu reagieren (z.B. einen...
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
9. Aug 2015
Wenn der Kanal da mal nicht das Rufen verschluckt ... ich höre hier nix :mrgreen:
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
9. Aug 2015
Jupp, das try war mir eine Zeile zu tief gerutscht ;)
Hab es im Beitrag korrigiert.
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
9. Aug 2015
Warum so kompliziert? Kurz, knapp, erläuternd, auswertbar, ...
if not FileExists( name ) then
raise EInOutError.CreateFmt( 'File %s does not exists!', );
if IsFileInUse( name ) then
raise EInOutError.CreateFmt( 'File %s is open!', );
AssignFile( f, name );
RewriteFile( f );