function Tmy.getbase(id:string):widestring;stdcall;
const
xmlpath='d:\yygl\case.xml';
var
xmlstring:string;
casexml:TXMLDocument;
begin
xmlstring:=readtable(id);
try
casexml:=TXMLDocument.Create(nil);
casexml.loadfromfile(xmlpath); //---引起异常!!!!
except
xmlstring:=xmlstring+'<diagnose>读病历错误!</diagnose>';
end;
result:=xmlstring ;
end;
const
xmlpath='d:\yygl\case.xml';
var
xmlstring:string;
casexml:TXMLDocument;
begin
xmlstring:=readtable(id);
try
casexml:=TXMLDocument.Create(nil);
casexml.loadfromfile(xmlpath); //---引起异常!!!!
except
xmlstring:=xmlstring+'<diagnose>读病历错误!</diagnose>';
end;
result:=xmlstring ;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货