DELPHI2007在VISTA下编译出错,"[MSBuild Error] “DCC”任务意外失败。",如何解决?(100分)

[MSBuild Error] “DCC”任务意外失败。<br>System.Configuration.ConfigurationErrorsException: 配置系统未能初始化 ---&gt; System.Configuration.ConfigurationErrorsException: 意外的 XML 声明。XML 声明必须是文档中的第一个节点并且在它之前不允许出现空白字符。 行 200，位置 3。 (C:/Windows/Microsoft.NET/Framework/v2.0.50727/Config/machine.config line 200) ---&gt; System.Xml.XmlException: 意外的 XML 声明。XML 声明必须是文档中的第一个节点并且在它之前不允许出现空白字符。 行 200，位置 3。<br>&nbsp; &nbsp;在 System.Xml.XmlTextReaderImpl.Throw(Exception e)<br>&nbsp; &nbsp;在 System.Xml.XmlTextReaderImpl.Throw(String res, String arg)<br>&nbsp; &nbsp;在 System.Xml.XmlTextReaderImpl.ParsePI(BufferBuilder piInDtdStringBuilder)<br>&nbsp; &nbsp;在 System.Xml.XmlTextReaderImpl.ParseDocumentContent()<br>&nbsp; &nbsp;在 System.Xml.XmlTextReaderImpl.Read()<br>&nbsp; &nbsp;在 System.Xml.XmlTextReader.Read()<br>&nbsp; &nbsp;在 System.Configuration.XmlUtil.StrictSkipToNextElement(ExceptionAction action)<br>&nbsp; &nbsp;在 System.Configuration.BaseConfigurationRecord.ScanSectionsRecursive(XmlUtil xmlUtil, String parentConfigKey, Boolean inLocation, String locationSubPath, OverrideModeSetting overrideMode, Boolean skipInChildApps)<br>&nbsp; &nbsp;在 System.Configuration.BaseConfigurationRecord.ScanSectionsRecursive(XmlUtil xmlUtil, String parentConfigKey, Boolean inLocation, String locationSubPath, OverrideModeSetting overrideMode, Boolean skipInChildApps)<br>&nbsp; &nbsp;在 System.Configuration.BaseConfigurationRecord.ScanSections(XmlUtil xmlUtil)<br>&nbsp; &nbsp;在 System.Configuration.BaseConfigurationRecord.InitConfigFromFile()<br>&nbsp; &nbsp;--- 内部异常堆栈跟踪的结尾 ---<br>&nbsp; &nbsp;在 System.Configuration.ConfigurationSchemaErrors.ThrowIfErrors(Boolean ignoreLocal)<br>&nbsp; &nbsp;在 System.Configuration.BaseConfigurationRecord.ThrowIfParseErrors(ConfigurationSchemaErrors schemaErrors)<br>&nbsp; &nbsp;在 System.Configuration.BaseConfigurationRecord.ThrowIfInitErrors()<br>&nbsp; &nbsp;在 System.Configuration.ClientConfigurationSystem.EnsureInit(String configKey)<br>&nbsp; &nbsp;--- 内部异常堆栈跟踪的结尾 ---<br>&nbsp; &nbsp;在 System.Configuration.ClientConfigurationSystem.EnsureInit(String configKey)<br>&nbsp; &nbsp;在 System.Configuration.ClientConfigurationSystem.System.Configuration.Internal.IInternalConfigSystem.GetSection(String sectionName)<br>&nbsp; &nbsp;在 System.Configuration.ConfigurationManager.GetSection(String sectionName)<br>&nbsp; &nbsp;在 System.Configuration.PrivilegedConfigurationManager.GetSection(String sectionName)<br>&nbsp; &nbsp;在 System.Diagnostics.DiagnosticsConfiguration.GetConfigSection()<br>&nbsp; &nbsp;在 System.Diagnostics.DiagnosticsConfiguration.Initialize()<br>&nbsp; &nbsp;在 System.Diagnostics.Switch.InitializeConfigSettings()<br>&nbsp; &nbsp;在 System.Diagnostics.Switch.InitializeWithStatus()<br>&nbsp; &nbsp;在 System.Diagnostics.Switch.get_SwitchSetting()<br>&nbsp; &nbsp;在 System.Diagnostics.BooleanSwitch.get_Enabled()<br>&nbsp; &nbsp;在 System.Xml.Serialization.TempAssembly.LoadGeneratedAssembly(Type type, String defaultNamespace, XmlSerializerImplementation&amp; contract)<br>&nbsp; &nbsp;在 System.Xml.Serialization.XmlSerializer..ctor(Type type, String defaultNamespace)<br>&nbsp; &nbsp;在 System.Xml.Serialization.XmlSerializer..ctor(Type type)<br>&nbsp; &nbsp;在 Borland.Build.Tasks.Common.Metadata.TaskFactory.get_Metadata()<br>&nbsp; &nbsp;在 Borland.Build.Tasks.Common.ToolTaskManager.GetMetadata(String name)<br>&nbsp; &nbsp;在 Borland.Build.Tasks.Common.BaseTask.get_Metadata()<br>&nbsp; &nbsp;在 Borland.Build.Tasks.Delphi.DCC.TargetOutOfDate()<br>&nbsp; &nbsp;在 Borland.Build.Tasks.Common.BaseTask.SkipTaskExecution()<br>&nbsp; &nbsp;在 Microsoft.Build.Utilities.ToolTask.Execute()<br>&nbsp; &nbsp;在 Borland.Build.Tasks.Common.BaseTask.Execute()<br>&nbsp; &nbsp;在 Borland.Build.Tasks.Delphi.DCC.Execute()<br>&nbsp; &nbsp;在 Microsoft.Build.BuildEngine.TaskEngine.ExecuteTask(ExecutionMode howToExecuteTask, Hashtable projectItemsAvailableToTask, BuildPropertyGroup projectPropertiesAvailableToTask, Boolean&amp; taskClassWasFound)

没用过,,,帮不上,帮顶下...

有一个AdvStringGrid的例子，我想CXGRID中也可以用：<br>procedure TfrmDemo.gdDataMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);<br>var<br>&nbsp; i, Col, Row: Integer;<br>begin<br>&nbsp; gdData.MouseToCell(X, Y, Col, Row);//得到鼠标移动到哪列哪行<br><br>&nbsp; if (Col = -1) or (Row &lt; 1) then //防止移出 gdData 的范围及移到标题行上<br>&nbsp; begin<br>&nbsp; &nbsp; Application.CancelHint;<br>&nbsp; &nbsp; Exit;<br>&nbsp; end;<br><br>&nbsp; if (Trim(gdData.Cells[0, Row]) &lt;&gt; '') &nbsp;then <br>&nbsp; begin<br>&nbsp; &nbsp; //加入你要的代码<br>&nbsp; end<br>&nbsp; else gdData.Hint := '';<br>end;

谢谢，我先试试