Forum: Object-Pascal / Delphi-Language
Delphi
by uligerhardt,
22. Feb 2012
Stimmt auch wieder. Mir fällt zwar auf die Schnelle kein Grund ein, warum ich das wissen wollte, aber da gibt es bestimmt "kreativere" Menschen. :lol:
Übrigens ist mir gerade beim Betrachten der Implementation von AssignFile (also System._Assign) ein Lapsus aufgefallen: Die Länge des übergebenen Strings wird nicht geprüft. Führt man folgende Routine aus
procedure Test2;
var
Opfer:...
Forum: Object-Pascal / Delphi-Language
Delphi
by uligerhardt,
22. Feb 2012
Uppsi. Wer rechnet denn mit sowas? :angle2:
Muss von mir aus kein Enum sein, aber der Ordinalwert 0 wäre vielleicht schon günstig gewesen. Naja gut, dann halt if (TTextRec(FFile).Mode <> 0) and (TTextRec(FFile).Mode <> fmClosed) then.
Forum: Object-Pascal / Delphi-Language
Delphi
by uligerhardt,
22. Feb 2012
Die Dateivariable ist als Member einer Klasse ja null-initialisiert. Das ist also kein Problem.
Forum: Object-Pascal / Delphi-Language
Delphi
by uligerhardt,
22. Feb 2012
OK, das ist es. Jetzt, wo ich es auf dem Silbertablett serviert kriege, sehe ich es auch.:oops:
Ich habe die erste Variante genommen (mit TTextRec statt TFileRec) und kriege jetzt das erhoffte Ergebnis. Ist eigentlich logisch - ist ja der gleich Grund, aus dem man (mindestens) in Destruktoren Free statt Destroy aufrufen sollte - damit nur tatsächliche allozierte Ressourcen freigegeben...