xmlobj := TDOMDocument40.Create(nil);
xmlsch := TXMLSchemaCache40.Create(nil);
xmlobj.DefaultInterface.async := False;
xmlsch.DefaultInterface.add(SchemaNamespace,SchemaFile);
xmlobj.DefaultInterface.schemas := xmlsch.DefaultInterface;
xmlobj.DefaultInterface.validateOnParse := True;
xmlobj.DefaultInterface.loadXML(Memo.Text);
if xmlobj.DefaultInterface.parseError.errorCode = 0 then
begin
s := '检查成功';
FErr.IsErr := False;
Result := True
end