commontype.inc

纵横天地(开源) Delphi的功能很多``很值得大家学习

 P1_STR = packed record
    Param1: Integer;
    Param2: Integer;
    Param3: Integer;
 end;
 PP1_STR = ^P1_STR;