Einzelnen Beitrag anzeigen

Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#1

TDataSet.Refresh erweitern

  Alt 12. Dez 2015, 08:52
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?
Nr.1 Delphi-Tool: [F7]
  Mit Zitat antworten Zitat