Eigenschaft überschreiben

[D5X2]

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

[Apollonius]

Funktioniert "inherited sql"?

[D5X2]

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

Danke - guter Tipp!

[DGL-luke]

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