小蓝博客收集整理的这篇文章主要介绍了Delphi和Excel.FormatConditions，小蓝博客小编觉得挺不错的，现在分享给大家，也给大家做个参考。 我在使用早期绑定Excel 2010从Delphi XE2设置条件格式时遇到问题 我试图重现的宏如下： Selection.FormatConditions.Add Type:=xlCellValue,Operator:=xlGreater,_ Formula1:="=6" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent6 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False 尝试我似乎无法访问相当于Selction.FormatConditions(1)的工作 我最接近的是使用以下代码： XR := Xlapp.Range(...) XR.FormatConditions.Delete; XR.FormatConditions.Add(xlCellValue,xlGreater,'=6',EmptyParam,EmptyParam); 哪个有效.当我尝试定义颜色时,我遇到了问题 FC := XR.FormatConditions[1]; FC.SetFirstPriority; with FC.Interior do begin PatternColorIndex := xlAutomatic; ThemeColor := xlThemeColorAccent6; end; 但是这一直告诉我XR.FormatConditions(1)和IDispatch因此与FormatCondition赋值不兼容 我究竟做错了什么？ 解决方法 您需要使用Selection作为ExcelRange. Excel XP还要求第二个和第三个参数是OleVariant,所以这应该工作(无论如何编译)： var Sel: ExcelRange; Op,Formula: OleVariant; Condition: FormatCondition; begin Sel := ExcelApplication1.Selection[1] as ExcelRange; Op := xlGreater; Formula := '=6'; Sel.FormatConditions.Add(xlCellValue,Op,Formula,EmptyParam); Condition := Sel.FormatConditions[1] as FormatCondition; Condition.Interior.PatternColorIndex := xlAutomatic; // Do whatever else end; 总结 以上是小蓝博客为你收集整理的Delphi和Excel.FormatConditions全部内容，希望文章能够帮你解决Delphi和Excel.FormatConditions所遇到的程序开发问题。 如果觉得小蓝博客网站内容还不错，欢迎将小蓝博客网站推荐给程序员好友。 本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。

小蓝博客收集整理的这篇文章主要介绍了delphi – 使用StrUtils’SearchBuf’的奇怪行为，小蓝博客小编觉得挺不错的，现在分享给大家，也给大家做个参考。 我正在整理过去使用FastStrings的旧代码,并且我已经实现了我的’PosAnyCase’的旧例程,它应该像’Pos’一样操作. (我希望SearchBuf比在两个字符串上调用UpperCase更好). function PosAnyCase( const AFindStr,AStr : string ) : integer; // Returns the position of this substring within a string ignoring case 我正在使用SearchBuf如下： function PosAnyCase( const AFindStr,AStr : string ) : integer; // Returns the position of this substring within a string ignoring case var Start,ResultPos : PChar; begin Start := PChar( AStr ); ResultPos := SearchBuf( Start,ByteLength( AStr ),AFindStr,[soDown] ); if ResultPos = nil then Result := 0 else Result := ResultPos-Start+1; end; 当我从单元测试中调用此例程时,以下测试通过： Check( PosAnyCase( '','123' ) = 0 ); Check( PosAnyCase( '2','123' ) = 2 ); Check( PosAnyCase( 'A','ABC' ) = 1 ); Check( PosAnyCase( 'a','ABC' ) = 1 ); Check( PosAnyCase( 'the','hellot there' ) = 8 ); Check( PosAnyCase( 'THE','hellot there' ) = 8 ); 但是这个测试失败了： Check( PosAnyCase( 'nice','does not have n i c e' ) = 0 ); 我做错了什么？ SearchBuf上的文档非常有限….谢谢 解决方法 对ByteLength的调用不正确.虽然 documentation明确声明参数是以字节为单位的长度,但事实并非如此.你应该使用Length代替,因为函数实际上需要char的单位而不是byte的单位. 总结 以上是小蓝博客为你收集整理的delphi – 使用StrUtils’SearchBuf’的奇怪行为全部内容，希望文章能够帮你解决delphi – 使用StrUtils’SearchBuf’的奇怪行为所遇到的程序开发问题。 如果觉得小蓝博客网站内容还不错，欢迎将小蓝博客网站推荐给程序员好友。 本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。

录音机的功能非常的使用，它可以随时随地的记录事件的声音。那么有些使用三星手机的朋友说，录音机不知道藏在哪里了，完全找不到。那么三星原装录音机软件到底在哪里呢？接下来小编就给大家带来三星手机录音机的位置。 具体如下: 1、在应用程序里面找不到录音机功能。 2、录音机功能都被藏在一个三星文件夹里面。 3、找到这个文件夹打开，在里面就可以找到了。 以上就是三星录音机的位置，有需要使用录音机的朋友可以通过上面的文章进行打开录音机，希望对您有帮助。