Wie access Basis (super -) Klasse in Delphi?

In C# kann ich access Basis-Klasse base Schlüsselwort, und in java kann ich darauf zugreifen, indem super Schlüsselwort. Wie man das in delphi?
angenommen ich habe folgenden code:

  type
    TForm3 = class(TForm)
  private
    procedure _setCaption(Value:String);
  public
    property Caption:string write _setCaption; //adding override here gives error
  end;

  implementation


procedure TForm3._setCaption(Value: String);
begin
  Self.Caption := Value; //it gives stack overflow      
end;
InformationsquelleAutor Niyoko Yuliawan | 2012-09-20
  1. 13

    Erhalten Sie eine stackoveflow Ausnahme, weil die Linie 

    Self.Caption := Value;

    rekursiv ist.

    Können Sie den Zugriff auf die parent-Eigenschaft Caption casting der Self - Eigenschaft der Basisklasse, zum Beispiel so :

    procedure TForm3._setCaption(const Value: string);
begin
   TForm(Self).Caption := Value;
end;

    oder mit der inherited Stichwort

    procedure TForm3._setCaption(const Value: string);
begin
   inherited Caption := Value;
end;
    InformationsquelleAutor RRUZ
  2. 11

    Sollten Sie verwenden inherited Stichwort:

    procedure TForm3._setCaption(Value: String); 
begin 
  inherited Caption := Value;
end;
    InformationsquelleAutor da-soft
  3. 2

    Basis (C#) = "super" (java -) = vererbte (Object Pascal) (*)

    Den 3 keywords arbeitet in der gleichen Weise.

    1) - Aufruf Basisklassenkonstruktor

    2) Nennen Basisklasse Methoden

    3) zum Zuweisen von Werten zu Eigenschaften der Basisklasse auf (vorausgesetzt, Sie sind nicht privat, nur protected und public sind erlaubt)

    4) Nennen Basisklasse destructor (Object Pascal nur. Java und C# keine Destruktoren)

    (*) Object Pascal ist vorzuziehen anstelle von Delphi oder Free Pascal, weil die Objekt-Pascal ist der name einer Programmiersprache, während Delphi und Free Pascal Compiler für Object Pascal.

    InformationsquelleAutor Zé do Boné
Schreibe einen Kommentar