| 1234567891011121314151617181920212223242526 |
- unit Config;
- interface
- uses
- HashDBProvider, InterfaceDataProvider, SysUtils;
- type
- TConfigProvider = class(THashDBProvider)
- private
- protected
- function GetTableName: string; override;
- end;
- implementation
- { TConfigProvider }
- function TConfigProvider.GetTableName: string;
- begin
- Result := 'Config';
- end;
- end.
|