摘要：
function TfrmMain.createIIReport(cdsBody: TClientDataSet; silent: Boolean): String;var s,sText: String; i: Integer; sTail: String; sSpace: String;begin try try sTail := #13#10; sSpace := ' '; sText := '<?xml version="1.0" encoding="GBK"?>' + sTail; cdsBody.D 阅读全文
