TDataSet.Refresh erweitern

**ConnorMcLeod**

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

zusammenfalten · markieren

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?

TDataSet.Refresh erweitern

TDataSet.Refresh erweitern

Stichworte

Forumregeln