Zitat von
Hansa:
Ihr wollt das wirklich so oft deklarieren ?
Tja, dann macht eben.
Was ist dagegen einzuwenden? Ich habe meine Entscheidung begründet.
Zitat:
Wenn IOResult benutzt werden soll, dann mus aber auch hier noch was deklariert werden :
Man stelle sich mal so was vor :
Delphi-Quellcode:
procedure Foo;
{$I-} // automatische Fehlerbehandlung ausschalten, machen wir selber
Rewrite(tf);
{$I+}
writeln (IOresult);
if IOResult = 0 then // auf Fehler prüfen
...
Ist doch irgendwie etwas blöd, erst zu prüfen ob ein Fehler aufgetreten ist, wenn man vorher schon fröhlich weitergemacht hat. Guck dir mein Beispiel noch mal an. Ich prüfe ERST auf Fehler und dann schrieben ich in die Datei mit
Writeln. Da wird nichts zerschossen.