
Delphi学习
fcrane
这个作者很懒,什么都没留下…
展开
-
delphi下的ini文件学习
INI文件在系统配置及应用程序参数保存与设置方面,具有很重要的作用,所以可视化的编程一族,如VB、VC、VFP、Delphi等都提供了读写INI文件的方法,其中Delphi中操作INI文件,最为简洁,这是因为Delphi3提供了一个TInifile类,使我们可以非常灵活的处理INI文件。一、有必要了解INI文件的结构:;注释[小节名]关键字=值...---- INI文件允许有多个小节,原创 2009-07-26 18:23:00 · 654 阅读 · 0 评论 -
movsx的Delphi算法实现
Function Movsx(A:byte):DWORD;begin if A and $80 = 0 then Result := A else Result := $FFFFFF00 or A; end;原创 2009-08-14 22:27:00 · 1281 阅读 · 0 评论 -
WinAPI: GetVolumeInformation - 读取文件系统信息
//声明:GetVolumeInformation( lpRootPathName: PChar; {磁盘驱动器代码字符串} lpVolumeNameBuffer: PChar; {磁盘驱动器卷标名称} nVolumeNameSize: DWORD; {磁盘驱动器卷标名称长度} lpVolumeS转载 2009-08-13 22:23:00 · 846 阅读 · 0 评论 -
文件路径相关的字符串操作
uses HTTPApp, Masks;procedure TForm1.Button1Click(Sender: TObject);var ss,s: string;begin //先提取一个文件名的字符串 ss := Application.ExeName; ShowMessage(ss); //C:/Documents and Settings/转载 2009-08-13 22:01:00 · 733 阅读 · 0 评论 -
delphi字符串函数大全
delphi字符串函数大全 函数 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas功能 返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考 function StrUtils.Sound原创 2009-07-30 13:12:00 · 21990 阅读 · 7 评论 -
trunc()函数和Round()函数
trunc对浮点数进行取整操作 round对浮点数进行四舍五入操作 procedure TForm1.N21Click(Sender: TObject);var real00:Real;begin real00 := 123.4; ShowMessage(trunc(123.4)=+ IntToStr(Trunc(real00))); //结果:1原创 2009-07-29 21:43:00 · 919 阅读 · 0 评论 -
delphi学习笔记1
1、Delphi注释 相同类型的注释不能嵌套。虽然不同类型的注释进行嵌套在语法上是合法的,但是不建议这么做。例如:{(* 这是合法的 *)}(*{ 这是合法的 }*)(*(* 这是非法的 *)*){{ 这是非法的 }} 2、圆括号 Object Pascal中一个鲜为人知的特性是,当调用一个过程或函数时,如果被调用的过程或函数没有参数,圆括号是可以省略的。因此,下面两个原创 2009-07-28 23:03:00 · 1099 阅读 · 0 评论 -
调用外部程序的方法
有两种方法,可以用来调用外部的程序: (1)以WinExec函数的方式来调用指定的Windows程序的响应 代码如下:procedure TForm1.btnWinExecClick(Sender: TObject);begin WinExec(Notepad.exe,SW_MAXIMIZE);end;其中WinExec函数的第1个参数表示了被调用程序的路径和名称,第原创 2009-07-27 08:17:00 · 834 阅读 · 0 评论 -
捕获按键消息
Additional页上有一个TApplicationEvent控件。 可以实现运用程序的功能键,例如按F1显示帮助,F2显示查询窗口等等。 具体做法: 放ApplicationEvent在程序主窗口,在ApplicationEvent的OnMessage事件写: procedure TForm1.ApplicationEvents1Messag原创 2009-07-25 16:02:00 · 1176 阅读 · 0 评论 -
edit编辑框 判断输入的字符是汉字还是英文
在KeyPress事件里处理。 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key Key:=#0; ////////////限制Edit1只能输入汉字 end;原创 2009-08-14 23:07:00 · 649 阅读 · 0 评论