![](https://img-blog.csdnimg.cn/20201014180756926.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
limon758
这个作者很懒,什么都没留下…
展开
-
delphi [致命错误] C.dpr(24): File not found: 'TFl.dcu'
[致命错误] Client.dpr(24): File not found: 'TFlatMemoUnit.dcu'我的TFlatMemoUnit.dcu文件在E:\C\Source里,就要把路径指向E:\C\Source路径指向方法为:工程->选项->目录/条件->查找路径:->选择到有需要的文件的路径即可黑色头发:http://heisetoufa.iteye.co...2009-05-08 18:16:29 · 226 阅读 · 0 评论 -
Delphi 抓图后打印这张图片,弹出打印属性框
如果用窗体.print打印的话,会导致一些控件打印不出来,比如下拉列表,还有打印TChart也会导致只打印TChart的原始状态,而不会打印有数据的TChart所以我就想到了先抓图,后打印抓图后下拉列表和TChart都正常显示了,可是还有一点不好,就是下拉列表中的值是显示不到的,但Label可以显示,所以可以在打印的时候把下拉列表的值换成Label来显示代码:[co...2009-05-19 14:29:00 · 180 阅读 · 0 评论 -
Delphi 打印机编程,获取打印机设备名和端口名,Api函数
Delphi中获取打印机设备名和端口名[code="c++"]uses Printers;{$IFNDEF WIN32}const MAX_PATH = 144;{$ENDIF}procedure TForm1.Button1Click(Sender: TObject);var pDevice : pChar; pDriver : pChar;...原创 2009-05-18 17:42:43 · 396 阅读 · 0 评论 -
Delphi 打印,设置在打印机画布的位置和大小,设置打印预览的大小
[code="c++"]Printer.BeginDoc; // 设置 MyRect1 在打印机画布的位置和大小 Printer.Canvas.StretchDraw(MyRect1,Image1.Picture.Bitmap); // 设置 MyRect2 在打印机画布的位置和大小 Printer.Canvas.StretchDraw(M...原创 2009-05-18 17:30:37 · 897 阅读 · 0 评论 -
Delphi subString 的用法,copy()
Delphi里没有subString只有Copy() Copy(s, index, count) 其中s,主字符串, index是要拷的起点,count是要拷的字符数 如:Copy('heisetoufa', 3, 4),结果为'seto' 黑色头发:http://heisetoufa.iteye.com...2009-05-12 11:38:56 · 2149 阅读 · 0 评论 -
Delphi for循环的写法
[code="c++"]var a,b,i: longint;begina:=0; b:=1; write(a, ', ',b);for i:=2 to 10 dobegin a:=a+b; b:=a+b; write( ', 'a, ', ',b); end;end. [/code]黑色头发:http://heisetoufa.iteye.com/...2009-05-12 10:17:44 · 950 阅读 · 0 评论 -
c++ Delphi VC++与Delphi变量类型对应关系
VC++DelphiINT Integer UNSIGNED Word UNSIGNED INT Word UINT Word WORD Word UNSIG...原创 2009-05-11 15:55:49 · 323 阅读 · 0 评论 -
Delphi 获取系统时间,获取系统年月日,时分秒
[code="c++"]procedure TFrmLltj.FormActivate(Sender: TObject);var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec:Word;begin Present:= Now; DecodeDate(Present, Year, Mont...2009-05-11 13:38:59 · 913 阅读 · 0 评论 -
Delphi 用ADOQuery连接查询数据库并查询数据并返回结果
[code="c++"]lltjQuery.Close;//关闭ADOQuerylltjQuery.SQL.Clear;//清除ADOQuery中SQLlltjQuery.SQL.Add('select * from kk.kkdj where kkmc like '+Trim(cbb_xxlk.Text)+'');//添加ADOQuery中SQL语句lltjQuery.Open;...2009-05-11 11:12:16 · 1785 阅读 · 0 评论 -
delphi if语法,弹出提示框,不等于写法,判断是否为空
初学Delphi[code="c++"]procedure TFrmLltj.cbb_xxlkChange(Sender: TObject);begin if Trim(cbb_xxlk.Text)'' then begin Showmessage('没空'); end else ...2009-05-11 10:26:04 · 619 阅读 · 0 评论 -
Delphi 最近做的一个Delphi功能,查询数据显示到TChart上
初学Delphi1,加载时把数据动态显示到下拉列表中2,加载时获取当前系统时间显示到下拉列表中3,定义变量4,查询值显示到Tchart中5,抓图打印6,连接并查询数据库7,if,for,while写法8,截取字符串[code="c++"]unit lltjFrm;interfaceuses Windows, Messages, Sy...2009-05-19 14:38:12 · 967 阅读 · 0 评论