Du kannst auch anstatt Self einfach
nil einsetzen, solltest dich dann aber um die Freigabe selbst kümmern! Denn dann wird der SaveDialog nicht mehr automatisch freigegeben, wenn die Form beendet wird. Mein try-finally-Block von oben ist eben genau dafür da
Und bzgl. dem Fehler bei deinem Self: du wirst sehr wahrscheinlich wohl keine Methode der TForm1 (oder wie deine Klasse sonst heißt) aufrufen, sondern eine, die mit keiner Klasse was zu tun hat. Daher ist auch das Self nicht definiert -- was sollte denn Self in der Methode darstellen, nachdem es nicht innerhalb eines Klasse-Kontexts implementiert ist?
Delphi-Quellcode:
type
TForm1 = class(TForm)
public
procedure Foo();
procedure Bar();
end;
procedure DoSomething();
begin
// Hier kann es kein Self geben, da es keine Klassemethode
// ist. Du müsstest dann einen Parameter Self definieren,
// der eben dann diese Rolle übernimmt.
end;
procedure TForm1.Foo();
begin
DoSomething();
end;
procedure TForm1.Bar();
begin
// Hier gibt es Self, da es eine Methode einer Klasse ist
Self.Foo();
end;
PS: Wenn du eine Klassenmethode Foo() hast, denn erzeugt der Compiler diese so, dass es einen
versteckten Parameter
Self gibt, d.h. Foo(Self: TObject) (bzw. evtl. TForm anstatt TObject), wovon du aber gar nichts mitbekommst. Daher kannst du dort auch ohne Probleme
Self verwenden.
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)