Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
13. Dez 2004
Im Prinzip ja, aber so einfach ist es nicht.
procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
13. Dez 2004
Wo schließt du die Datei? Der Exceptblock wird nur im Fehlerfall ausgeführt. Ersetzt das except durch finally. Und gib das mal mit FreeAndNil frei, dann kannst du auchmit Assign gucken, ob es noch eine Instanz gibt.
Und warum eine globale Variable?