我有我的Delphi程序编码并准备摇滚,但我找不到编译.exe的选项.
我确定这很明显,有什么帮助吗?
我有一个应用程序有一个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) 我正在尝试(在这个社区的帮助下)将我的第一个客户端/服务器应用程序放在一起.
我正在使用Indy 10和Delphi Xe2,但怀疑我的问题不在于那些,而是在于如何使用套接字(如果你问我,那就是巫术和黑色艺术).
因为我经常按下异常的断点并逐步执行我的代码,然后按Alt + F2停止,我的下一次运行经常会遇到异常"已经连接",最终我得到"太多的连接".
我怎么能整理一下呢?
(另外,有没有人有一个使用try ...的演示,除了,还有尝试...最终在Indy演示中?)
我有一些函数来计算由空格分隔的字符串中的子字符串:
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 XE2,并且通常会借此机会将其更新.
该应用程序的一个功能是StringGrid,它在几列中显示多个复选标记.为实现此目的,网格实际上是2个对齐的网格 - 其中第二个网格设置为Wingdings字体以显示复选标记.
我错误地认为我应该能够使用类似TListView的东西并使用复选标记字符(U + 2713)以及文本的其余部分......如果是这样,我该怎么做呢?
我是否需要将字体设置为该列的Wingdings?这需要在OnDraw中吗?
我吠叫错了树......
我有以下问题.
我正在使用Delphi 2010,最近我安装了Delphi XE2并重新编译了我的不同项目.我注意到了一个错误?在tchart的pointseries中.
当我向点系列添加点数时,最后一个点不显示或仅在没有显示其他点时???
一开始画的一切都很好:

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

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

有什么想法或帮助吗?
我正在尝试连接到mdb(访问2000)我的应用程序有1个主屏幕,有4个按钮.每个按钮都会打开一个新表格.
我需要在所有4个子表单上访问这个数据库,我是否必须为每个表单添加一个ADOConnection?我可以在主窗体上建立连接吗?或者还有更好的方法吗?
我有一个使用TIdHTTPServer的程序.现在我想使用与TIdHTTPServer对话的TIdHTTP编写一些自动化测试.测试代码在程序本身中.
当TIdHTTP尝试连接'套接字错误#10061连接被拒绝时'.提出异常.我猜这是因为TIdHTTPServer已经在使用该端口了.
具有相同可执行文件的TIdHTTPServer和TIdHTTP是否可以相互通信?如果是这样,怎么样?
我正在尝试VCL样式.这可能是一个愚蠢的问题,但是在使用样式时是否可以使用不同背景的表单?似乎表单背景(客户区)在VCL样式设计器中指定,它覆盖了表单的Color属性.
如何获得不同背景颜色的表格?例如,我希望我的模态对话框具有与主窗体不同的背景颜色.
我喜欢乌龟svn 1.8提交UI界面.
它可以通过单击"全部","无",......,"删除","修改"按钮等来过滤掉需要提交的文件.但是这些按钮没有矩形边框,它们只是字符串,如标签.
我想知道我是否可以用delphi实现它们,因为我知道tsvn是用C++编写的.
delphi ×10
delphi-xe2 ×10
ado ×1
indy ×1
indy10 ×1
ms-access ×1
performance ×1
sockets ×1
string ×1
substring ×1
teechart ×1
unicode ×1
vcl-styles ×1