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 · 228 阅读 · 0 评论 -
Delphi 抓图后打印这张图片,弹出打印属性框
如果用窗体.print打印的话,会导致一些控件打印不出来,比如下拉列表,还有打印TChart也会导致只打印TChart的原始状态,而不会打印有数据的TChart 所以我就想到了先抓图,后打印 抓图后下拉列表和TChart都正常显示了,可是还有一点不好,就是下拉列表中的值是显示不到的,但Label可以显示,所以可以在打印的时候把下拉列表的值换成Label来显示 代码: [co...2009-05-19 14:29:00 · 184 阅读 · 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 · 397 阅读 · 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 · 907 阅读 · 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 · 2152 阅读 · 0 评论 -
Delphi for循环的写法
[code="c++"]var a,b,i: longint; begin a:=0; b:=1; write(a, ', ',b); for i:=2 to 10 do begin a:=a+b; b:=a+b; write( ', 'a, ', ',b); end; end. [/code] 黑色头发:http://heisetoufa.iteye.com/...2009-05-12 10:17:44 · 954 阅读 · 0 评论 -
c++ Delphi VC++与Delphi变量类型对应关系
VC++ Delphi INT Integer UNSIGNED Word UNSIGNED INT Word UINT Word WORD Word UNSIG...原创 2009-05-11 15:55:49 · 324 阅读 · 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 · 923 阅读 · 0 评论 -
Delphi 用ADOQuery连接查询数据库并查询数据并返回结果
[code="c++"] lltjQuery.Close;//关闭ADOQuery lltjQuery.SQL.Clear;//清除ADOQuery中SQL lltjQuery.SQL.Add('select * from kk.kkdj where kkmc like '+Trim(cbb_xxlk.Text)+'');//添加ADOQuery中SQL语句 lltjQuery.Open;...2009-05-11 11:12:16 · 1804 阅读 · 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 · 625 阅读 · 0 评论 -
Delphi 最近做的一个Delphi功能,查询数据显示到TChart上
初学Delphi 1,加载时把数据动态显示到下拉列表中 2,加载时获取当前系统时间显示到下拉列表中 3,定义变量 4,查询值显示到Tchart中 5,抓图打印 6,连接并查询数据库 7,if,for,while写法 8,截取字符串 [code="c++"]unit lltjFrm; interface uses Windows, Messages, Sy...2009-05-19 14:38:12 · 975 阅读 · 0 评论