mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
53 lines
832 B
ObjectPascal
53 lines
832 B
ObjectPascal
unit DataModuleMainU;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils,
|
|
System.Classes,
|
|
{
|
|
uADStanIntf,
|
|
uADStanOption,
|
|
uADStanParam,
|
|
uADStanError,
|
|
uADDatSManager,
|
|
uADPhysIntf,
|
|
uADDAptIntf,
|
|
uADCompDataSet,
|
|
uADCompClient}
|
|
Data.DB;
|
|
|
|
type
|
|
TDataModuleMain = class(TDataModule)
|
|
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
function GetMemTable: TDataSet;
|
|
end;
|
|
|
|
var
|
|
DataModuleMain: TDataModuleMain;
|
|
|
|
implementation
|
|
|
|
uses
|
|
ioutils;
|
|
|
|
{ %CLASSGROUP 'Vcl.Controls.TControl' }
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
function TDataModuleMain.GetMemTable: TDataSet;
|
|
begin
|
|
// FMemTable := TFDMemTable.Create(Self);
|
|
// MemTable.FileName := TPath.Combine(ExtractFilePath(GetModuleName(HInstance)), 'testdata.xml');
|
|
// if tfile.Exists(MemTable.FileName) then
|
|
// MemTable.LoadFromFile
|
|
// else
|
|
// MemTable.Open;
|
|
end;
|
|
|
|
end.
|