Self nicht definiert nach dem Create?

[Incocnito]

Tipp:
Ändere die Funktion mal ab auf class function Execute() : Boolean; bzw. unten auf class function TMeinForm.Execute() : Boolean; .
class function / class procedure wäre für deinen Anwendungsfall logischer,
da du vom Objekt keine Instanz brauchst.
Dort müsste er auch meckern "was ist Self?".

Liebe Grüße aus dem Norden
Incocnito

[Andreas L.]

Zitat von Incocnito:

Tipp:
Ändere die Funktion mal ab auf class function Execute() : Boolean; bzw. unten auf class function TMeinForm.Execute() : Boolean; .
class function / class procedure wäre für deinen Anwendungsfall logischer,
da du vom Objekt keine Instanz brauchst.
Dort müsste er auch meckern "was ist Self?".

Liebe Grüße aus dem Norden
Incocnito

So ähnlich halte ich es auch immer:

Delphi-Quellcode:

type
  TMyForm = class(TForm)
    //...
  public
    class function Execute: Boolean;
  end;

class function TMyForm.Execute: Boolean;
var
  FormDlg: TMyForm;
begin
  FormDlg := TMyForm.Create(Application);
  try
    // ggf. irgendwas vor dem Öffnen des Dialogs machen
    FormDlg.LoadOptions;

    // Dialog öffnen
    Result := FormDlg.ShowModal = mrOK;

    // ggf. nach dem Schließen des Forms irgendwas speichern
    if Result then
      FormDlg.SaveOptions;
  finally
    FreeAndNil(FormDlg);
  end;
end;

[himitsu]

Nein, Class-Function kennt auch ein Self, nur ist es dort keine Instanz (TObject), sondern ein Typ (TClass).

Eine Static-Class-Function kennt kein Self.


Aber alles egal, da Self nur ein unsichtbarer Parameter an Klassenmethoden ist
und in einem WITH sowieso nicht existiert.


Abgesehn davon, dass man WITH nach Möglichkeit eh nicht benutzen sollte.