Delphi-PRAXiS - Delphi Eigenschaft überschreiben

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Eigenschaft überschreiben (https://www.delphipraxis.net/92377-eigenschaft-ueberschreiben.html)

Eigenschaft überschreiben

Hallo zusammen!

Ich habe folgendes Problem:

Ich möchte ein TQuery mit besonderen Eigenschaften bauen. Also TMyQuery von TQuery abgeleitet und eine neue Eigenschaft "SQL" erstellt ( Muss aus Kompatibilitätsgründen so heissen). Im Code möchte ich allerdings auf die Original-SQL zugreifen können. Wir mache ich das?

Delphi-Quellcode:

			type

  TMyQuery = class(TQuery)

  private

    ...

    procedure SetSQL(Value:TStrings);

    function GetSQL:TStrings;

    ...

  published

    ...

    property Sql: TStrings read GetSql write SetSql;

    ...

implementation

... SQL.Text:='Select * from Irgendwas'     <----- Hier soll auf die Original-SQL zugegriffen werden, nicht auf die überschriebene

Re: Eigenschaft überschreiben

Funktioniert "inherited sql"?

Re: Eigenschaft überschreiben

Scheint auf den ersten Blick tatsächlich zu klappen, muss aber noch genauer testen.

Danke - guter Tipp!

Re: Eigenschaft überschreiben

TQuery(self).sql würd auch gehen.