vo.pas

来自「Delphi保存结构化XML文件的例子」· PAS 代码 · 共 26 行

unit VO;

interface
uses
  Classes;
Type
    User = record
        ID : String;
        Name : String;
        Sex : String;
        Department : String;
        Mobile : String;
        Email : String;
    end;

    CompayInfo = record
        Code : String;
        Name : String;
        Address: String;
        ListUsers : Array of User;
    end;

implementation

end.