Hallo Kollegen,
es geht darum, die Refresh-Methode von TDataSet zu erweitern von:
Delphi-Quellcode:
procedure TDataSet.Refresh;
begin
DoBeforeRefresh;
CheckBrowseMode;
UpdateCursorPos;
try
InternalRefresh;
finally
Resync([]);
DoAfterRefresh;
end;
end;
nach
Delphi-Quellcode:
procedure TDataSet.Refresh;
begin
if <Bedingung> then exit;
DoBeforeRefresh;
CheckBrowseMode;
UpdateCursorPos;
try
InternalRefresh;
finally
Resync([]);
DoAfterRefresh;
end;
end;
Delphi verweigert mir das overload in einer abgeleiteten Klasse, mit class helpers bekommt man eine Endlosschleife und den Methodenzeiger umbiegen mit TMethod.Code funkt auch nicht. Da meint Delphi, daß es eine umgültige Typumwandlung sei.
Jemand ne Idee, wie man das gebacken bekommt?