-
Notifications
You must be signed in to change notification settings - Fork 0
/
DataModule.pas
34 lines (26 loc) · 744 Bytes
/
DataModule.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
unit DataModule;
interface
uses
System.SysUtils, System.Classes, REST.Types, FireDAC.Stan.Intf,
FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
FireDAC.Phys.Intf, FireDAC.DApt.Intf, Data.DB, FireDAC.Comp.DataSet,
FireDAC.Comp.Client, REST.Response.Adapter, REST.Client, Data.Bind.Components,
Data.Bind.ObjectScope;
type
Tdm = class(TDataModule)
RESTClient1: TRESTClient;
RESTRequest1: TRESTRequest;
RESTResponse1: TRESTResponse;
RESTResponseDataSetAdapter1: TRESTResponseDataSetAdapter;
MemTable: TFDMemTable;
private
{ Private declarations }
public
{ Public declarations }
end;
var
dm: Tdm;
implementation
{%CLASSGROUP 'FMX.Controls.TControl'}
{$R *.dfm}
end.