|
delphi model
model就是record（记录或结构体）。model来源于以下几种途径。面向model编程适用于任何开发语言。
1）人工书写model。
type
Ttunit = record
[Serialize(1)] unitid: string;
[Serialize(2)] unitname: string;
end;
TtunitArray = record
[Serialize(1)] status: integer;
[Serialize(2)] exception: string;
[Serialize(3)] message: string;
[Serialize(4)] tunits: TArray<Ttunit>;
end;
TRes = record
[Serialize(1)] status: integer;
[Serialize(2)] exception: string;
[Serialize(3)] message: string;
end;
2）从数据表生成。
这个一般是通过工具自动生成，当然也可以人工书写（太费时）。
3）从*.proto生成。
这个一般是通过工具自动生成，当然也可以人工书写（太费时）。一般用于3方异构系统对接，只需要提供*.proto文件即可。
准备好*.proto文件。
通过工具将*.proto翻译为pascal代码。
得到pascal代码。
最后程序操作的都是model。
procedure TForm1.Button5Click(Sender: TObject);
//json查询
begin
var t: TtunitArray := TRest.select<TtunitArray>('tunit');
if t.Status = 500 then
begin
ShowMessage(t.Exception);
Exit;
end;
FDMemTable1.EmptyDataSet;
FDMemTable1.DisableControls;
for var dw: Ttunit in t.tunits do
FDMemTable1.AppendRecord([dw.Unitid, dw.Unitname]);
FDMemTable1.First;
FDMemTable1.EnableControls;
end;
本文来自博客园，作者：{咏南中间件}，转载请注明原文链接：https://www.cnblogs.com/hnxxcxg/p/16703455.html
来源：https://www.cnblogs.com/hnxxcxg/p/16703455.html |
發表於 2022-9-17 19:49:00
