You've already forked lazarus-ccr
32 lines
340 B
ObjectPascal
32 lines
340 B
ObjectPascal
|
unit bufdsdatamodule;
|
||
|
|
|
||
|
|
{$mode objfpc}{$H+}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Classes, SysUtils, FileUtil, VpBaseDS, VpBufDS;
|
||
|
|
|
||
|
|
type
|
||
|
|
|
||
|
|
{ TDemoDM }
|
||
|
|
|
||
|
|
TDemoDM = class(TDataModule)
|
||
|
|
Datastore: TVpBufDSDataStore;
|
||
|
|
private
|
||
|
|
|
||
|
|
public
|
||
|
|
// constructor Create(AOwner: TComponent); override;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
DemoDM: TDemoDM;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.lfm}
|
||
|
|
|
||
|
|
end.
|
||
|
|
|