- 博客(24)
- 资源 (5)
- 收藏
- 关注
RSS订阅原创 Delphi与消息1：TObject中的Dispatch和DefaultHandler
TObject是Delphi中的基类，它提供了消息的基本分装 TObject = class ....... procedure Dispatch(var Message); virtual; procedure DefaultHandler(var Message); virtual;end; 主要通过Dispatch和DefaultHandler方法
2010-01-15 20:20:00
1144
转载 基本算法（用 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
521
原创 Delphi 基础回顾2
pcahr 和string 之不同string 记录了长度 例如var s:string; p:pchar;begin s:=123; //p:=@s; 乱码的原因是应为s[0]是用来记录长度的 p:=@s[1];//正确 showmessage(p)end;
2010-01-14 23:13:00
381
原创 Delphi 基础回顾
有很多东西，不经常使用，都忘记了，哈哈！做个记录！ 1.packed record 中 packed 的作用 packed 表示 record 中数据的对齐方式，默认情况下，Delphi每次分配4字节的内存，及时声明的类型，不需要使用4字节，也是按4字节分配，加上packed后，按实际大小分配，占用内存小，但是速度慢。 2.Delphi中的指针 “^”和“@”符号的使用
2010-01-14 22:42:00
910
原创 FastReport 4.7X 设计报表 复制粘贴 中文乱码问题
修改:frxDesgnCtrls单元procedure TfrxClipboard.Paste方法中sl.SaveToStream(s);为sl.SaveToStream(s,TEncoding.UTF8);即可
2009-11-19 23:36:00
519
原创 FastReport 使用技巧——如何打印数据表数据
利用TfrxCrossView var Cross: TfrxCrossView; i, j: Integer;begin if c is TfrxCrossView then begin Cross := TfrxCrossView(c); Table1.First; i := 0; while not Table
2009-11-10 11:01:00
1412
原创 Java的基本数据类型
byte 8bits -128~127short 16bits -32768~32767int 32bitslong 64bitsfloat 32bitsdouble 64bitschar 16bits (unicode)boolean 1bits
2009-04-30 20:16:00
283
转载 Java jar打包详解
为什么会有这个玩意呢，首先，这是jar的全称：JavaTM Archive (JAR) file，是的，就是java存档文件。这有点类似zip文件，想一想它是干什么的用的呢，压缩！？没错就是要压缩，将我们原先零散的东西放到一下，重新组织，所有这些目的只有一个：方便！好了，不用管他是怎么压缩的，我们的重点是哪些是我们要压缩的(输入)，还有压缩成了什么(输出)，进而将它发布(部署)。 那我
2009-04-29 20:00:00
660
转载 JDK1.6下载安装和环境配置
学习 Java 开发的第一步就是构建开发环境，下面以 JDK6.0 在 Windows XP 上的安装配置为例来讲述：第一步：下载 JDK从 SUN 网站下载 JDK6 或以上版本，这里以 jdk-6u2-windows-i589-p 版为例。第二步：安装 JDK（1）：双击 jdk-6u2-windows-i589-p.exe 文件，我们这里安装路径为：D:/common/Jav
2009-04-28 21:52:00
11504
7
原创 Delphi Imm单元函数详解（二）
函数：ImmGetDefaultIMEWnd功能：获取缺省IME窗口句柄函数原型：function ImmGetDefaultIMEWnd(hWnd: HWND): HWND; stdcall;参数解释： hWnd:使用输入法的Control句柄返回值： 缺省IME窗口句柄
2009-03-09 23:48:00
826
原创 Delphi Imm单元函数详解（一）
函数：ImmInstallIME功能：安装输入法 函数原型：function ImmInstallIME(lpszIMEFileName, lpszLayoutText: PWideChar): HKL;参数解释： lpszIMEFileName :IME文件名称（包括路径） lpszLayoutText:输入法名称返回值： 输
2009-03-09 23:38:00
1063
原创 WindowFromPoint函数功能
WindowFromPoint 函数功能：该函数获得包含指定点的窗口的句柄。 函数原型：HWND WindowFromPoint（POINT Point）； 参数： Point：指定一个被检测的点的POINT结构。 返回值S：返回值为包含该点的窗口的句柄。如果包含指定点的窗口不存在，返回值为NULL。如果该点在静态文本控制之上，返回值是在该静态文本控制的下面的窗口。 备注：Wind
2009-02-07 16:48:00
1082
原创 全局探色器-函数
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
303
原创 取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
727
原创 华为交换机配置基本命令——视图切换
1.系统视图 在用户视图下键入system-view quit返回用户视图 return返回用户视图 2.以太网端口视图 固定以太网端口视图：在系统视图下键入interface ethernet0/1 quit返回系统视图 return返回用户视图 3.VLAN视图 在系统视图下键入vlan 1
2009-01-03 23:25:00
6976
原创 Delphi 捕捉全屏幕图像
procedure SaveScreenToBmp(AFileName :TFileName);var bit: TBitmap; cvs: TCanvas;begin bit := TBitmap.Create; bit.SetSize(Screen.Width, Screen.Height); cvs := TCanvas.Create;
2009-01-01 21:41:00
907
原创 如何实现类似KTV中屏幕歌词显示
本功能其实于一般的绘图工作无异,主要是将文本绘制在Screen上即可1 procedure TForm1.Button1Click(Sender: TObject);var c :TCanvas;begin c := TCanvas.Create; c.Handle := GetDC(0); //获取桌面 Handle SetBkMod
2009-01-01 21:26:00
2014
原创 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
953
1
原创 Delphi2009输入"."后不出现助记输入选择框的问题!
问题出现在D2009打开以前工程项目时,输入"."后,系统无反应! 解决方法:设置Project-->OptionsDelphi Compiler结点--->Unit aliases 字符串加入 WinTypes=Windows;WinProcs=Windows
2008-12-11 23:34:00
391
原创 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
1278
原创 Devexpress V40 在Delphi2009中 DBGrid 使用Search功能时文本选择从右至左问题解决
问题描述的不是很清楚,使用图片说明! 图中输入AT时,系统选择的是后两位! 解决方法: 修改文件: cxDrawTextUtils ProcedureName: cxTextRowsOutHighlight 注释掉:{if cxGetWritingDirection(ATextParams.CharS
2008-12-09 18:47:00
902
原创 终于将我的软件全部升级到D2009了
花了一个多星期的时间研究D2009,看了网上N多人的文章!终于将软件全部升级了! 我觉得D2009的Object生命周期好像与D2007不同,以前我书写的在finalization部分Free的对象或使用DbExpress写数据库操作就不可用!
2008-11-21 23:24:00
341
原创 Fast Report 4.X——Delphi 2009的中文解决方法
1.更换FastReport/Source文件夹的文件（frxrcClass.pas,frxrcDesgn.pas,frxrcExports.pas,frxrcInsp.pas） （ 文件不会上传，可以在Delphi中打开以上文件，将乱码部分可以修改即可！） 2.修改frxRes.pas函数procedure TfrxResources.AddXML(const St
2008-11-20 20:02:00
826
原创 if then else 的特殊简写方法
我们经常遇到类似: var a,b:Integerbegin if (条件) then Result := a else Result := b;nd; 可以简写为 Result := iif(条件,a,b); iif 在单元IdGlobal中,支持多种数据类型 --------------------
2008-11-17 20:23:00
4286
FastReport 4.7.5 Full Source For Delphi2009(已经解决中文显示问题)
2008-11-22
Fast Report 4.7.5 For Delphi 2009
2008-11-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人