如何计算Delphi中字符串中某个字符的出现次数？ 例如,假设我有以下字符串,并希望计算其中的逗号数： S := '1,2,3'; 那么我想获得2的结果. 你可以使用这个简单的功能： function OccurrencesOfChar(const S: string; const C: char): integer;
var
i: Integer;
begin
result := 0;
我需要将VCL组件从32位转换为64位(Delphi XE2).现在我可以安装它,只有当我选择“32位平台”,如果我选择“64位平台”我可以编译,但不安装(没有安装菜单). 如何添加64位支持并安装64位应用程序？ 如果你的意思是“安装到IDE”,简单的答案是你不能. IDE是一个32位应用程序,不适用于托管64位DLL.任何组件或插件必须编译为32位才能使用IDE本身. 组件中的64位支持仅用于
如.关闭相关问题 – 下面添加更多例子. 以下简单的代码(找到一个顶级的Ie窗口并枚举它的孩子)可以使用’32位Windows‘目标平台工作.早期版本的Delphi也没有问题： procedure TForm1.Button1Click(Sender: TObject);
function EnumChildren(hwnd: HWND; lParam: LPARAM): BOOL; std
FillRect不会在Delphi XE2中绘制完整的TStringGrid单元格.默认颜色左侧有3个像素间距(BiDiMode设置为bdLeftToRight).这个问题在我以前使用的Delphi 6中不存在. procedure TShapeline.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect;
我们最近开始创建64位构建我们的应用程序的过程.在比较测试中,我们发现64位版本的计算方式不同.我有一个代码示例来演示两个构建之间的区别. var
currPercent, currGross, currCalcValue : Currency;
begin
currGross := 1182.42;
currPercent := 1.45;
currCalcValue := (
当我尝试禁用一个风格的VCL上的按钮使用下面的代码行 TButton(Sender).enabled:= False; 我得到这个结果(在运行时禁用了按钮) 而不是这个！ (设计时按钮禁用) 让两个或更多个具有相同颜色的按钮彼此相互混淆确实令人困惑,一个被禁用,另一个被启用 此问题的原因位于 TButtonStyleHook(在Vcl.StdCtrls单元)样式hook类的Paint方法中. 在方
对于Delphi,似乎有一些 JSON选项 – 是否有推荐用于XE2的库？我正在寻找Delphi XE2和 PHP Web应用程序之间的对象共享. (以兼容的方式对PHP Web应用程序进行序列化和发布delphi对象,并从静态PHP调用到delphi服务器端进行解除序列化) 我知道两个图书馆. 内置图书馆和Super Object. 我使用超级对象,因为它很容易使用.
Delphi XE2在线帮助(以及Embarcadero DocWiki)在TObjectDictionary的文档中非常薄(或者我太愚蠢地找不到). 据我所知,它可以用于存储可以通过字符串键访问的对象实例(基本上是使用排序的TStringList但是类型安全的).但是我如何实际申报和使用它是一个失败. 任何指针？ TObjectDictionary和 TDictionary之间的主要区别在于提供
我在Delphi XE2应用程序中使用vcl样式,但是当我弹出一个TPopup菜单时,这是使用本机窗口的外观和感觉来显示,是否存在任何方式将vcl样式颜色应用于TPopUpMenu？ 替换一个 TPopupActionBar的TPopup菜单,或者使用一个插入器类将TPopupMenu转换为TPopupActionBar. TPopupMenu=class(Vcl.ActnPopup.TPopup
这是我在这个论坛上的第一篇文章,希望能以正确的方式提出我的问题.对不起长度,但是我觉得很难把它砍下来. 我正在使用Delphi XE2与一个相当大的SOAP服务进行通信.我已成功导入wsdl,一切都正常工作.但是,我发现自己写了很多类似的代码.我想要一个通用的方法来调用我的Web服务.我也很难多次读取我的代码,因为我现在必须为每种类型的调用写入这么多的代码. 更多的是一个周末的程序员,我远远不能掌
以下是使用firemonkey Delphi XE2制作的delphi应用程序示例. 您可以看到,您可以使用Firemonkey中的视觉风格“风格书”来自定义窗口框架内大部分内容的外观.然而,Windows框架的外部是使用Windows决定的任何样式绘制的.现在如果我使用VCL而不是Firemonkey,我可以在深色配置中应用“VCL样式”和“皮肤”整个VCL应用程序. 我的猜测是,这不是Delp
这个代码应该在Delphi XE2中工作,但它在StrtoDateTime转换中给出了“不是有效的日期和时间”错误： procedure TForm2.Button1Click(Sender: TObject);
var
s: string;
d: TDateTime;
FmtStngs: TFormatSettings;
begin
GetLocaleFormatSettin
我使用的是Delphi XE2 Update 3. Update 4与我们的第三方组件不兼容,所以我们还没有更新. 我在我的应用程序中使用TImageList.我注意到,从源视图切换到窗体视图(F12)很多次,突然之前未修改的单元将被修改.如果我保存由F12引起的更改,我可以查看源代码控制,并看到几个字节的TImageList.Bitmap属性已更改.这里有一个例子,见于TortoiseHg Wo
我再次写一个外部调试器可视化器,并且正在跑到墙上.调试器可视化程序可以返回的字符串的大小似乎有限制. Delphi 2010附带的TStrings调试器可视化器的限制为4K.在对Embarcadero新闻组发布的一个问题的回应中,Ewe Schuster replied表示：“您可以增加一些缓冲区,但是AFAIR的实际限制是在IOTAThread.Evaluate中限制了大约12k个字符.” 我的
由于Delphi XE2,NativeInt具有新意义.在32位运行时,NativeInt是32位整数.在64位运行时,NativeInt是64位整数. 我有一些源文件使用第三方DLL(32位和64位).这些DLL分别在32和64平台中使用32位和64位整数. 这些源文件适用于Delphi 2007 – Delphi XE2 32位平台,没有问题： 例如.： function Test: Inte
本机无法在XE2 Update 3中使用“[DCC致命错误] Test.pas(22)：F2084内部错误：URW1147” unit Test;
interface
type
TSorter<T> = procedure(var Values: array of T);
TTest = class
public
procedure Sort<T>(const Sorte
如 RAD Studio docwiki所述,将32位VCL应用程序迁移到64位： Open your 32-bit application in the IDE, add and activate the 64-bit target platform, and compile your application as a 64-bit application. 我有一个包含200多个32位项目的项
现在是 this question再次,但这次是Delphi XE2. 我正在使用XE2附带的Indy版本10.5.8.0,并且尝试了四种不同版本的SSL dll.我试过1.0.x的最新版本,以及大约3种不同的0.9.8版本(e,h,x,….). 当您通过calendar.google.com与https：//网址进行通信时,它们都不起作用. Delphi Google Calendar组件“Sy
我正在使用 ShellExecute在Delphi XE2中从另一个应用程序“one.exe”执行EXE’two.exe’. ShellExecute(0, 'open', 'two.exe', nil, nil, SW_NORMAL); 它工作得很好,但是每当我从任务管理器的进程选项卡终止应用程序’one.exe'(父应用程序)时,使用“结束进程树”选项,应用程序“two.exe”也将被终止.
我是 JSON的新手,我手上有这个项目,需要我解析JSON并在ListView中显示一些内容.问题是我现在阅读的文档涉及包含JSON数组的JSON对象,而我的案例涉及处理嵌套对象.为了简化故事,下面是总结：我正在使用Delphi XE2与DBXJSON.我向服务器发布了一些值,并且回复了一个如下所示的JSON对象： {
"products": {
"Men's Sneake
