Ich denk eine recht geschickte Lösung wäre der Weg über
Class Helper
Delphi-Quellcode:
TYourDataset = class helper for TDataset
public
procedure Save (Filename : string) ;
end;
Danach steht dir in allen TDataset Erben (TADOQuery usw.) direkt die Methode
Save zur Verfügung. Du musst nicht mal casten.
Save musst du halt nur noch implementieren, aber das sollte nicht so kompliziert sein.