标签: delphi-xe2

德尔福XE2.如何编译.exe?

我有我的Delphi程序编码并准备摇滚,但我找不到编译.exe的选项.

我确定这很明显,有什么帮助吗?

delphi delphi-xe2

0
推荐指数
1
解决办法
2789
查看次数

Delphi字体资源

我有一个应用程序有一个TTF资源,包括"字体".我希望在FormCreate事件中使用此字体作为Fomr Font.我不愿意将此字体提取到目录并从那里加载.我无法帮助我.我学习,请不要问我的代码.

我使用了"字体资源ID 13"和"字体名称AmarBangla.ttf".我尝试了以下代码,但是发生了错误.以下是这些代码:

第一 :

procedure TForm01.FormCreate(Sender: TObject);
 begin
    Form01.font[13] := AddFontResource (LPCTSTR lpszFontName));
    Form01.font := 13;
end;
Run Code Online (Sandbox Code Playgroud)

第二个 :

 procedure TForm01.FormCreate(Sender: TObject);
 begin
    Form01.font[13] := AddFontResource (Hinstance, MakeIntResource(13));
    Form01.font := 13;
 end;
Run Code Online (Sandbox Code Playgroud)

delphi delphi-xe2

0
推荐指数
1
解决办法
1700
查看次数

开发时连接太多

我正在尝试(在这个社区的帮助下)将我的第一个客户端/服务器应用程序放在一起.

我正在使用Indy 10和Delphi Xe2,但怀疑我的问题不在于那些,而是在于如何使用套接字(如果你问我,那就是巫术和黑色艺术).

因为我经常按下异常的断点并逐步执行我的代码,然后按Alt + F2停止,我的下一次运行经常会遇到异常"已经连接",最终我得到"太多的连接".

我怎么能整理一下呢?

(另外,有没有人有一个使用try ...的演示,除了,还有尝试...最终在Indy演示中?)

sockets delphi indy10 delphi-xe2

0
推荐指数
1
解决办法
469
查看次数

delphi子串计数性能

我有一些函数来计算由空格分隔的字符串中的子字符串:

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils,windows;

//s=string to search in
//t=string to search for
//cs=delimiters

function f0(const s,t:string;const cs:tsyscharset):integer;
var
  p,q:pchar;
  u:string;
begin
  result:=0;
  p:=pointer(s);
  if p<>nil then
    while p^<>#0 do
    begin
      while (p^<>#0) and charinset(p^,cs) do inc(p);
      q:=p;
      while (p^<>#0) and not charinset(p^,cs) do inc(p);
      if p>q then
      begin
        setstring(u,q,p-q);
        //writeln('[',u,']');
        if u=t then inc(result);
      end;
    end;
end;

function f1(const s,t:string;const cs:tsyscharset):integer;
var
  i,j,l:integer;
  u:string;
begin
  result:=0;
  l:=length(s);
  i:=1;
  while i<=l do
  begin
    while (i<=l) and …
Run Code Online (Sandbox Code Playgroud)

delphi string performance substring delphi-xe2

0
推荐指数
1
解决办法
805
查看次数

在Delphi XE2中使用Unicode字符

我正在考虑将我们的一个应用程序转换为Delphi XE2,并且通常会借此机会将其更新.

该应用程序的一个功能是StringGrid,它在几列中显示多个复选标记.为实现此目的,网格实际上是2个对齐的网格 - 其中第二个网格设置为Wingdings字体以显示复选标记.

我错误地认为我应该能够使用类似TListView的东西并使用复选标记字符(U + 2713)以及文本的其余部分......如果是这样,我该怎么做呢?

我是否需要将字体设置为该列的Wingdings?这需要在OnDraw中吗?

我吠叫错了树......

delphi unicode delphi-xe2

0
推荐指数
1
解决办法
1407
查看次数

Delphi XE2 TChart PointSeries Bug

我有以下问题.

我正在使用Delphi 2010,最近我安装了Delphi XE2并重新编译了我的不同项目.我注意到了一个错误?在tchart的pointseries中.

当我向点系列添加点数时,最后一个点不显示或仅在没有显示其他点时???

一开始画的一切都很好:

在此输入图像描述

然后我清除系列并重新添加相同的点.最后一点不显示

在此输入图像描述

但是,如果我滑动图表以便屏幕上不显示其他点,则会显示此缺失点

在此输入图像描述

有什么想法或帮助吗?

delphi teechart delphi-xe2

0
推荐指数
1
解决办法
588
查看次数

ADO连接一个或四个?

我正在尝试连接到mdb(访问2000)我的应用程序有1个主屏幕,有4个按钮.每个按钮都会打开一个新表格.

我需要在所有4个子表单上访问这个数据库,我是否必须为每个表单添加一个ADOConnection?我可以在主窗体上建立连接吗?或者还有更好的方法吗?

delphi ms-access ado delphi-xe2

0
推荐指数
1
解决办法
1202
查看次数

TIdHTTPServer和TIdHTTP可以连接相同的可执行文件吗?

我有一个使用TIdHTTPServer的程序.现在我想使用与TIdHTTPServer对话的TIdHTTP编写一些自动化测试.测试代码在程序本身中.

当TIdHTTP尝试连接'套接字错误#10061连接被拒绝时'.提出异常.我猜这是因为TIdHTTPServer已经在使用该端口了.

具有相同可执行文件的TIdHTTPServer和TIdHTTP是否可以相互通信?如果是这样,怎么样?

delphi indy delphi-xe2

0
推荐指数
1
解决办法
657
查看次数

使用VCL样式形成背景颜色?

我正在尝试VCL样式.这可能是一个愚蠢的问题,但是在使用样式时是否可以使用不同背景的表单?似乎表单背景(客户区)在VCL样式设计器中指定,它覆盖了表单的Color属性.

如何获得不同背景颜色的表格?例如,我希望我的模态对话框具有与主窗体不同的背景颜色.

delphi delphi-xe2 vcl-styles

0
推荐指数
1
解决办法
2192
查看次数

如何将"字符串按钮"实现为UI控件?

我喜欢乌龟svn 1.8提交UI界面.

它可以通过单击"全部","无",......,"删除","修改"按钮等来过滤掉需要提交的文件.但是这些按钮没有矩形边框,它们只是字符串,如标签.

我想知道我是否可以用delphi实现它们,因为我知道tsvn是用C++编写的.

delphi delphi-xe2

0
推荐指数
1
解决办法
115
查看次数