Bin mir nicht sicher, aber Du meinst doch sowas:
Delphi-Quellcode:
public
{ Public-Deklarationen }
procedure Refresh;
implementation
procedure tDataSetTest.Refresh;
begin
if 1 = 2 then exit; // latürnich eine sinnvolle Bedingung ;-)
inherited;
end;
Im Prinzip ja. Aber ... ich bräuchte zusätzlich noch etwas wie ein reintroduce, weil die Objekte während des Programmablaufes auch mal als TDataSet verwendet werden und nicht immer nur als tDataSetTest. Aber reintroduce greift nicht, sondern es kommt immer das Refresh von TDataSet dran. Deswegen wollte ich den Code auswechseln.