Delphi
文章平均质量分 59
geniuslychee
这个作者很懒,什么都没留下…
展开
-
Delphi字符串处理
copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为abcdef,copy(str,3,2)=cd,copy(str,4,10)=def concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串(长度不能超过255) length(str) 返回str的字符个数,即其长度. pos(obj,转载 2009-08-06 19:48:00 · 793 阅读 · 0 评论 -
Delphi获取程序自身路径
以程序实际路径为“D:/test/test.exe”时为例:procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(extractfileext(Application.Exename)); //实际显示为: exe ShowMessage(extractfilena原创 2009-08-06 20:44:00 · 911 阅读 · 0 评论 -
Delphi里去掉字符串中空格的函数
Trim()去掉字符串左右两边的空格和控制符,它的使用语法如下: function Trim(const S: string): string; TrimLeft()用于去除字符串左边的空格,它的使用方法如下: function TrimLeft(const S: string): string; TrimRight()用于去除字符串右边的空格,它的使用方法如下:转载 2009-08-06 20:45:00 · 6686 阅读 · 0 评论 -
AnsiString?PChar?赋值?转换?
AnsiString,Delphi开发人员指南这么解释的,AnsiString就是指向堆中字符串结构的指针,显示了AnsiString的分配情况。 帮助上这么解释:长字符串保存有成员数量,PChar没有,长字符串(相对于ShortString类型来说,这里就是AnsiString)是Null结尾的,并且包含了引用记数,PChar就是一个简单的Null结尾的字符串。AnsiString之转载 2009-08-06 22:23:00 · 1134 阅读 · 0 评论 -
Delphi ESC 退出程序
分别在FormCreate,FormKeyPress下编写一句代码就可以了如下:procedure TForm1.FormCreate(Sender: TObject);beginkeypreview:=true; //可以接收键盘操作end;procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);beginif key转载 2009-08-06 23:35:00 · 2361 阅读 · 0 评论 -
Delphi messagebox 说明
MessageBox对话框 输入控件的 ImeName属性把输入法去掉就默认为英文输入了 MessageBox对话框是比较常用的一个信息对话框,其不仅能够定义显示的信息内容、信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对框。 1、函数原型及参数 function MessageBox(hW转载 2009-08-06 23:40:00 · 320 阅读 · 0 评论 -
Delphi实现飞信控件
最近,自己有个项目中,需要用到飞信的相关操作(发送短信等)。于是就开始咂摸着写一个飞信的控件出来。飞信的这个协议网络上早就有人分析过,基本上大部分都分析出来了,其他没分析的,自己抓抓包分析分析,也不难。经过几天的工作与摸索,目前基本上1.0版本已经出来了。目前具备的功能如下:1、删除某个飞信好友2、添加飞信好友3、发送飞信消息4、发送手机消息给飞信好友5、发送手机信息给自己转载 2009-08-06 23:47:00 · 482 阅读 · 0 评论 -
Delphi调用外部程序并等待其运行结束
uses Windows, SysUtils, Classes, ShellAPI; function RunAndWait(FileName: string; Visibility: Integer): THandle; var zAppName: array[0..512] of Char; zCur转载 2009-08-15 10:39:00 · 974 阅读 · 0 评论