Config.pas 329 B

1234567891011121314151617181920212223242526
  1. unit Config;
  2. interface
  3. uses
  4. HashDBProvider, InterfaceDataProvider, SysUtils;
  5. type
  6. TConfigProvider = class(THashDBProvider)
  7. private
  8. protected
  9. function GetTableName: string; override;
  10. end;
  11. implementation
  12. { TConfigProvider }
  13. function TConfigProvider.GetTableName: string;
  14. begin
  15. Result := 'Config';
  16. end;
  17. end.