Delphi 7.0 学习历程
本专栏记录了本人从刚开始接触Delphi 7.0,到慢慢熟悉,到用其开发POS收银系统 整个历程,重点在于疑难的解析和巧妙的设计思路。编程是一种艺术,让艺术成为一种习惯。
Deen12520
分享知识 分享快乐
展开
-
Delphi 编码常用快捷键
前言 善于使用快捷键,将大大提高编码效率。现将自己项目过程中使用到的快捷键做个记录,日后遇到新的快捷键,会持续更新。常用快捷键 1、Ctrl + Y 删除当行记录 2、Ctrl +shift+C 将自定义的函数或过程自动加到声明中,若你先声明一个过程或函数后,则会直接生成过程或函数的名称,begin和end;持续更新中….原创 2016-01-27 17:14:22 · 1091 阅读 · 0 评论 -
字符串截取进阶
案例给定一个字符串,为多个单字符串连接而成,单个字符串格式为 bm(num,price)bm(num,price) 。以下面具体字符串演示: ‘20151202142400000002(2,0)20151202142200000001(1,4)’要求:取出20151202142200000001(1,4)括号内的1和4.直接上干货var i,j,k,m:integer; str:=原创 2016-01-22 16:49:04 · 1054 阅读 · 0 评论 -
一个稍复杂的字符串截取问题
给定一个字符串,如下图所示:要求: 1、取出上述字符串括号前的字符串; 2、取出上述字符串括号中的1; 3、取出上述字符串括号中的48;实现: 直接上干货str:= '20151202142200000001(1,48)';slen:=Length(str)-Length(LeftStr(str,Pos('(',str)))-1; //计算括号内(不包括括号)的字符长度,这里是 len原创 2016-01-11 15:26:08 · 997 阅读 · 0 评论 -
pos函数的使用
function Pos(Substr: string; S: string): Integer; 函数描述:pos函数在字符串表达式s中查找子串substr。 pos函数查找串s内的子字符串,并以整型量返回子串substr首字符在串s中的位置。如果子串substr没有被找到,则返回0。 举例: pos(‘()’,’google()’)=7以上为个人总结,有不妥之处,请原创 2016-01-11 10:22:54 · 14876 阅读 · 1 评论 -
messageBox 中显示变量及实现换行
前言总结下今天使用messageBox过程中解决的一些问题,共勉。 messageBox格式使用请参考: delphi中Application.MessageBox函数用法详解1、显示变量直接上干货(代码):vars:string;....s:='存档失败';Application.MessageBox(PChar(s),'错误',MB_ICONERROR);//窗口标识可以含多个,例如下原创 2015-11-26 21:41:55 · 8392 阅读 · 0 评论 -
Delphi 7学习第六天-简单登陆界面的实现
第一次尝试一天码两篇文章,分享知识的过程是快乐的。上午试着去做一个简单的登陆界面,基本上算完成了。登录名和密码要与数据表中匹配,才能登陆成功。这里采用的是Delphi的ADO连接SQL server数据库,具体连接过程,可参照我前两天的博客,这里不再赘述。现在将设计的过程分享下。1、设计的界面及运行的结果运行的时候要保证ADOtable1的active的属性为true.原创 2015-07-29 20:14:36 · 5743 阅读 · 7 评论 -
Delphi7第八天---小型图书管理系统
前两天试着玩GitHub,熟悉了英语,却把头脑给弄大了。文件夹上传到GitHub总不成功,启动Gitshell后,不到一会,系统就崩了,explorer.exe无法工作,只得重启。昨天关机、开机试了不少于10次,问题还没解决,先搁在那,等心缓一缓再弄。有收获的是知道怎么从GitHub中拷贝别人的项目文件。今天终于把搁置了几天的图书管理系统搞定了,完成了图书查询借阅功能和还书功能两大原创 2015-08-04 19:14:32 · 3634 阅读 · 0 评论 -
在public中和在implementation前面定义的全局变量的区别
前言在delphi进行编码时,工程中经常需要用到全局变量,所以正确的使用全局变量将尤为重要。本文主要介绍在public中和在implementation前面定义的全局变量的区别。一、单元文件定义的全局变量先附上一个单元文件,代码中给出个变量所处的位置。 单元名称为uni1.pas TForm1=Class(TForm) Edit1 : TEdit; Label1 : TLabel;原创 2015-11-22 21:29:33 · 1388 阅读 · 0 评论 -
cannot find implementation of method edt1 KeyDown
错误提示如下: 1、原因: Type中已定义,但并未写相应过程。Other Reason:Such sometimes happens, when any letters you delete from titles of procedures (as at you - “rocedure), or end somewhere does not suffice.2、解决方法: 删除Type定义原创 2015-11-18 17:38:40 · 2030 阅读 · 0 评论 -
深入探究Tedit组件的键盘事件和鼠标事件
在Delphi 开发过程中,会用到各种各样的VCL组件,每个组件都会有一系列的event(事件). 下面就Tedit 组件,对它的键盘事件和鼠标事件进行一个对比分析。一、键盘事件OnKeyDownOnKeyDown 事件当按下键盘上的任意一个键,如字母键、数字键、功能键(F1~F12)、Ctrl键、Shift键或Alt键等,都将触发一个 OnkeyDownOnkeyDown 事件.OnKeyPr原创 2015-11-07 17:11:24 · 1257 阅读 · 0 评论 -
TListView 列宽自适应大小
看图说话,直接看效果。设置前: 设置后: 我使用的设置: listview1.Columns[1].Width:=-2; //Columns[1]设置SubItems扩展: a、a、 ListView.Column[0].Width := -1;//列宽根据列内容自适应,此时保证列内容都可见。 b、b、 ListView.Column[0].Width := -2;//列宽根据列标题自适原创 2015-11-17 16:17:03 · 6361 阅读 · 0 评论