本文整理自网络,侵删。
VarXML : IXMLDOCUMENT;PolisoftXMLExport,TabloName,Field:IXMLNODE;i,a:integer;beginif Data.IsEmpty thenbeginShowMessage('DataSet is not null');Exit;end;XML := NewXMLDocument;XML.Encoding := 'utf-8';XML.Options := [doNodeAutoIndent];PolisoftXMLExport := XML.AddChild('PolisoftXMLExport');for I := 1 to Data.RecordCount dobeginTabloName := PolisoftXMLExport.AddChild('Police',i);Data.First;for a := 1 to Data.FieldCount dobeginField := TabloName.AddChild(Data.Fields[a-1].FieldName,0);Field.Text := Data.Fields[a-1].AsString;end;end;XMl.SaveToFile(Path);ShellExecute(HANDLE_FLAG_INHERIT,'open',PAnsiChar(Path),nil,nil,SW_HIDE); end
相关阅读 >>
Delphi执行sql提示“不正常地定义参数对象”,“提供了不一致或不完整的信息”错误
更多相关阅读请进入《Delphi》频道 >>