delphi泛型实现的变体记录

delphi泛型实现的变体记录

model+泛型真的是无敌存在。

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

type   TRes = record                  //公共的JSON回复     status: Integer;     message: string;     exception: string;   end;     TData<T: record> = record     data: array of T;   end;   type      //定义 数据模型   Tdanwei = record     unitid: string;     unitname: string;   end;   var dw: TData<Tdanwei> := TSerial.unmarshal<TData<Tdanwei>>(TStream(req.Body));