![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi 函数
xu_yancheng
这个作者很懒,什么都没留下…
展开
-
Devexpress DBGrid在D2009中 网格脚金额默认求和乱码问题
修改cxDataUtils文件,DefaultCurrencyDisplayFormat函数的返回值string->AnsiString function DefaultCurrencyDisplayFormat: AnsiString;var ACurrStr: AnsiString; I: Integer; C: Char;begin if Cu原创 2008-12-31 16:58:00 · 955 阅读 · 1 评论 -
Delphi 基础回顾
有很多东西,不经常使用,都忘记了,哈哈!做个记录! 1.packed record 中 packed 的作用 packed 表示 record 中数据的对齐方式,默认情况下,Delphi每次分配4字节的内存,及时声明的类型,不需要使用4字节,也是按4字节分配,加上packed后,按实际大小分配,占用内存小,但是速度慢。 2.Delphi中的指针 “^”和“@”符号的使用原创 2010-01-14 22:42:00 · 915 阅读 · 0 评论 -
Delphi Imm单元函数详解(二)
函数:ImmGetDefaultIMEWnd功能:获取缺省IME窗口句柄函数原型:function ImmGetDefaultIMEWnd(hWnd: HWND): HWND; stdcall;参数解释: hWnd:使用输入法的Control句柄返回值: 缺省IME窗口句柄原创 2009-03-09 23:48:00 · 833 阅读 · 0 评论 -
Delphi Imm单元函数详解(一)
函数:ImmInstallIME功能:安装输入法 函数原型:function ImmInstallIME(lpszIMEFileName, lpszLayoutText: PWideChar): HKL;参数解释: lpszIMEFileName :IME文件名称(包括路径) lpszLayoutText:输入法名称返回值: 输原创 2009-03-09 23:38:00 · 1070 阅读 · 0 评论 -
Delphi 2009 PAnsiChar 问题
调用API/ DrawText等时经常要是用PAnsiChar类型,在D2009以前版本中,直接书写如: DrawText(Handle,PAnsiChar(测试文本!),-1,R,Flags);但在D2009中这样书写不正确,应该写成: DrawText(Handle,PAnsiChar(AnsiString(测试文本!)),-1,R,Flags);原创 2008-12-09 18:49:00 · 1282 阅读 · 0 评论 -
WindowFromPoint函数功能
WindowFromPoint 函数功能:该函数获得包含指定点的窗口的句柄。 函数原型:HWND WindowFromPoint(POINT Point); 参数: Point:指定一个被检测的点的POINT结构。 返回值S:返回值为包含该点的窗口的句柄。如果包含指定点的窗口不存在,返回值为NULL。如果该点在静态文本控制之上,返回值是在该静态文本控制的下面的窗口。 备注:Wind原创 2009-02-07 16:48:00 · 1086 阅读 · 0 评论 -
全局探色器-函数
var pt: TPoint; c: TColor;begin GetCursorPos(pt); c := GetPixel(GetDC(0), pt.X, pt.Y); edtColor.Text := Format($%.6x, [c]);end;原创 2009-02-07 16:42:00 · 306 阅读 · 0 评论 -
取Canvas指定坐标的颜色
GetPixel( DC: HDC; {设备环境句柄} X, Y: Integer {坐标}): COLORREF; {返回颜色值} 例如: var c :TColor;begin c := GetPixel(Canvas.Handle, X,Y);end;原创 2009-02-07 14:57:00 · 730 阅读 · 0 评论 -
终于将我的软件全部升级到D2009了
花了一个多星期的时间研究D2009,看了网上N多人的文章!终于将软件全部升级了! 我觉得D2009的Object生命周期好像与D2007不同,以前我书写的在finalization部分Free的对象或使用DbExpress写数据库操作就不可用!原创 2008-11-21 23:24:00 · 342 阅读 · 0 评论 -
基本算法(用 PASCAL 描述)
1.数论算法求两数的最大公约数function gcd(a,b:integer):integer;beginif b=0 then gcd:=aelse gcd:=gcd (b,a mod B);end;求两数的最小公倍数function lcm(a,b:integer):integer;beginif alcm:=a;while lcm mod b >0 do inc(lcm,a);end;转载 2010-01-14 23:31:00 · 529 阅读 · 0 评论