You are not logged in.
Pages: 1
i have a TSQLRecord defined as follow:
Ttjxx = class(TSQLRecord)
private
fpid:integer;
fKSH:RawUTF8;
fTJXH: RawUTF8;
fJWBSBZ:RawUTF8;
fJWBS: RawUTF8;
fYK_LYSLY:currency;
fYK_LYSLZ: currency;
fYK_JZSLY:currency;
fYK_JZSLZ: currency;
fYK_JZDSY:currency;
fYK_JZDSZ: currency;
fYK_SJJC:RawUTF8;
fYK_SJJCT: RawUTF8;
fYK_SJDS1:RawUTF8;
fYK_SJDS2: RawUTF8;
fYK_SJDS3:RawUTF8;
fYK_SJDS4: RawUTF8;
fYK_SJDS5:RawUTF8;
fYK_YSYJ: RawUTF8;
fYK_YB: RawUTF8;
fNK_XYSSY: currency;
fNK_XYSZY:currency;
fNK_FYQK: RawUTF8;
fNK_XZJXG:RawUTF8;
fNK_HXXT: RawUTF8;
fNK_SJXT: RawUTF8;
fNK_G: currency;
fNK_GXZ: RawUTF8;
fNK_P: currency;
fNK_PXZ:RawUTF8;
fNK_YSYJ: RawUTF8;
fNK_QT: RawUTF8;
fWK_SG: currency;
fWK_TZ: currency;
fWK_PF: RawUTF8;
fWK_MB:RawUTF8;
fWK_JB: RawUTF8;
fWK_JZ: RawUTF8;
fWK_SZ: RawUTF8;
fWK_GJ:RawUTF8;
fWK_YSYJ: RawUTF8;
fWK_QT: RawUTF8;
fEB_ZETL: currency;
fEB_YETL: currency;
fEB_XJ: RawUTF8;
fEB_YSYJ:RawUTF8;
fEB_EBYH: RawUTF8;
fKQ_CE: RawUTF8;
fKQ_SFKC: RawUTF8;
fKQ_YC:RawUTF8;
fKQ_YSYJ: RawUTF8;
fKQ_QT: RawUTF8;
fXT: RawUTF8;
fXT_YSYJ:RawUTF8;
fXT_QT: RawUTF8;
fGG_ZAM: RawUTF8;
fGG_YGKY: RawUTF8;
fGG_YSYJ:RawUTF8;
fGG_QT: RawUTF8;
fZYSXDM1: RawUTF8;
fZYSXDM2: RawUTF8;
fZYSXDM3:RawUTF8;
fZYSXDM4: RawUTF8;
fZYSXDM5: RawUTF8;
fZYSXDM6: RawUTF8;
fTJJLDM:RawUTF8;
fBZ: RawUTF8;
published
property pid: integer read fpid write fpid;
property KSH: RawUTF8 read fKSH write fKSH;
property TJXH: RawUTF8 read fTJXH write fTJXH;
property JWBSBZ: RawUTF8 read fJWBSBZ write fJWBSBZ;
property JWBS: RawUTF8 read fJWBS write fJWBS;
property YK_LYSLY: currency read fYK_LYSLY write fYK_LYSLY;
property YK_LYSLZ: currency read fYK_LYSLZ write fYK_LYSLZ;
property YK_JZSLY: currency read fYK_JZSLY write fYK_JZSLY;
property YK_JZSLZ: currency read fYK_JZSLZ write fYK_JZSLZ;
property YK_JZDSY: currency read fYK_JZDSY write fYK_JZDSY;
property YK_JZDSZ: currency read fYK_JZDSZ write fYK_JZDSZ;
property YK_SJJC: RawUTF8 read fYK_SJJC write fYK_SJJC;
property YK_SJJCT: RawUTF8 read fYK_SJJCT write fYK_SJJCT;
property YK_SJDS1: RawUTF8 read fYK_SJDS1 write fYK_SJDS1;
property YK_SJDS2: RawUTF8 read fYK_SJDS2 write fYK_SJDS2;
property YK_SJDS3: RawUTF8 read fYK_SJDS3 write fYK_SJDS3;
property YK_SJDS4: RawUTF8 read fYK_SJDS4 write fYK_SJDS4;
property YK_SJDS5: RawUTF8 read fYK_SJDS5 write fYK_SJDS5;
property YK_YSYJ: RawUTF8 read fYK_YSYJ write fYK_YSYJ;
property YK_YB: RawUTF8 read fYK_YB write fYK_YB;
property NK_XYSSY: currency read fNK_XYSSY write fNK_XYSSY;
property NK_XYSZY: currency read fNK_XYSZY write fNK_XYSZY;
property NK_FYQK: RawUTF8 read fNK_FYQK write fNK_FYQK;
property NK_XZJXG: RawUTF8 read fNK_XZJXG write fNK_XZJXG;
property NK_HXXT: RawUTF8 read fNK_HXXT write fNK_HXXT;
property NK_SJXT: RawUTF8 read fNK_SJXT write fNK_SJXT;
property NK_G: currency read fNK_G write fNK_G;
property NK_GXZ: RawUTF8 read fNK_GXZ write fNK_GXZ;
property NK_P: currency read fNK_P write fNK_P;
property NK_PXZ: RawUTF8 read fNK_PXZ write fNK_PXZ;
property NK_YSYJ: RawUTF8 read fNK_YSYJ write fNK_YSYJ;
property NK_QT: RawUTF8 read fNK_QT write fNK_QT;
property WK_SG: currency read fWK_SG write fWK_SG;
property WK_TZ: currency read fWK_TZ write fWK_TZ;
property WK_PF: RawUTF8 read fWK_PF write fWK_PF;
property WK_MB: RawUTF8 read fWK_MB write fWK_MB;
property WK_JB: RawUTF8 read fWK_JB write fWK_JB;
property WK_JZ: RawUTF8 read fWK_JZ write fWK_JZ;
property WK_SZ: RawUTF8 read fWK_SZ write fWK_SZ;
property WK_GJ: RawUTF8 read fWK_GJ write fWK_GJ;
property WK_YSYJ: RawUTF8 read fWK_YSYJ write fWK_YSYJ;
property WK_QT: RawUTF8 read fWK_QT write fWK_QT;
property EB_ZETL: currency read fEB_ZETL write fEB_ZETL;
property EB_YETL: currency read fEB_YETL write fEB_YETL;
property EB_XJ: RawUTF8 read fEB_XJ write fEB_XJ;
property EB_YSYJ: RawUTF8 read fEB_YSYJ write fEB_YSYJ;
property EB_EBYH: RawUTF8 read fEB_EBYH write fEB_EBYH;
property KQ_CE: RawUTF8 read fKQ_CE write fKQ_CE;
property KQ_SFKC: RawUTF8 read fKQ_SFKC write fKQ_SFKC;
property KQ_YC: RawUTF8 read fKQ_YC write fKQ_YC;
property KQ_YSYJ: RawUTF8 read fKQ_YSYJ write fKQ_YSYJ;
property KQ_QT: RawUTF8 read fKQ_QT write fKQ_QT;
property XT: RawUTF8 read fXT write fXT;
property XT_YSYJ: RawUTF8 read fXT_YSYJ write fXT_YSYJ;
property XT_QT: RawUTF8 read fXT_QT write fXT_QT;
property GG_ZAM: RawUTF8 read fGG_ZAM write fGG_ZAM;
property GG_YGKY: RawUTF8 read fGG_YGKY write fGG_YGKY;
property GG_YSYJ: RawUTF8 read fGG_YSYJ write fGG_YSYJ;
property GG_QT: RawUTF8 read fGG_QT write fGG_QT;
property ZYSXDM1: RawUTF8 read fZYSXDM1 write fZYSXDM1;
property ZYSXDM2: RawUTF8 read fZYSXDM2 write fZYSXDM2;
property ZYSXDM3: RawUTF8 read fZYSXDM3 write fZYSXDM3;
property ZYSXDM4: RawUTF8 read fZYSXDM4 write fZYSXDM4;
property ZYSXDM5: RawUTF8 read fZYSXDM5 write fZYSXDM5;
property ZYSXDM6: RawUTF8 read fZYSXDM6 write fZYSXDM6;
property TJJLDM: RawUTF8 read fTJJLDM write fTJJLDM;
property BZ: RawUTF8 read fBZ write fBZ;
end;
when i create TSQLModel as follow, it failed with message "Access violation ad address 007CC7F4 in module 'project.exe', Read of address 00000004".
myModel := TSQLModel.Create([Ttjxx],'');
but many simple TSQLRecord s work fine.
thanks.
Offline
it stoped at TSQLModelRecordProperties.Create of mORMot.pas.
constructor TSQLModelRecordProperties.Create(aModel: TSQLModel;
aTable: TSQLRecordClass; aKind: TSQLRecordVirtualKind);
var f: integer;
...
fProps := aTable.RecordProps; <------------------stoped here.
...
Offline
thanks, and it works now.
Offline
Pages: 1