Einzelnen Beitrag anzeigen

Benutzerbild von ConnorMcLeod
ConnorMcLeod

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

AW: TDataSet.Refresh erweitern

  Alt 12. Dez 2015, 17:45
Leider kann/darf ich keinen Quellcode zeigen, das wäre auch etwas umständlich, aber das Prinzip geht so:

Delphi-Quellcode:
type
  // diese Klasse kann ich nicht verändern:
  TDataSetMitExtraFunktionalitaet = class(TDataSet)
  public
    procedure NichtAenderbar;
  end;

implementation

procedure TDataSetMitExtraFunktionalitaet.NichtAenderbar
begin
  // in dieser Prozedur kann ich nichts ändern
  [...]
  Refresh;
end;

procedure Demo;
var
  ds1: TDataSetMitExtraFunktionalitaet;
begin
  [...]
  // hier passiert ein implizierter Refresh, der unterdrückt werden soll:
  ds1.NichtAenderbar;
end;
Hoffe, das ist halbwegs verständlich
Nr.1 Delphi-Tool: [F7]
  Mit Zitat antworten Zitat