第三次执行创建出错

Question

function TReportGlobal.CQTXMLMerge(XMLFiles: array of PChar): string;
begin
  Result := CSFailureValue;  with TCQTXMLMerge.Create do    //第三次执行的时候出现 access violation at * read of address 错误
  try
    Result := DoReport(XMLFiles);
  finally
    Free;
  end;
end;望大家指教，谢谢!

Answer 1

纠正一下  是access violation at * write of address 错误

Answer 2

这样修改后试试。
function TReportGlobal.CQTXMLMerge(XMLFiles: array of PChar): string;
var
  CQTXMLMerge :TCQTXMLMerge;
begin
  Result := CSFailureValue;
  CQTXMLMerge := TCQTXMLMerge.Create;
  with CQTXMLMerge do    //第三次执行的时候出现 access violation at * read of address 错误
  try
    Result := DoReport(XMLFiles);
  finally
    Free;
  end;
end;