关注
分享
本专栏记录了本人从刚开始接触Delphi 7.0,到慢慢熟悉，到用其开发POS收银系统 整个历程，重点在于疑难的解析和巧妙的设计思路。编程是一种艺术，让艺术成为一种习惯。
Deen12520
分享知识 分享快乐
展开
-
Delphi 编码常用快捷键
前言 善于使用快捷键，将大大提高编码效率。现将自己项目过程中使用到的快捷键做个记录，日后遇到新的快捷键，会持续更新。常用快捷键 1、Ctrl + Y 删除当行记录 2、Ctrl +shift+C 将自定义的函数或过程自动加到声明中，若你先声明一个过程或函数后，则会直接生成过程或函数的名称，begin和end;持续更新中….原创 2016-01-27 17:14:22 · 1064 阅读 · 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 · 1050 阅读 · 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 · 969 阅读 · 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 · 14738 阅读 · 1 评论 -
messageBox 中显示变量及实现换行
前言总结下今天使用messageBox过程中解决的一些问题，共勉。 messageBox格式使用请参考： delphi中Application.MessageBox函数用法详解1、显示变量直接上干货（代码）：vars:string;....s:='存档失败';Application.MessageBox(PChar(s),'错误',MB_ICONERROR);//窗口标识可以含多个，例如下原创 2015-11-26 21:41:55 · 8342 阅读 · 0 评论 -
Delphi 7学习第六天-简单登陆界面的实现
第一次尝试一天码两篇文章，分享知识的过程是快乐的。上午试着去做一个简单的登陆界面，基本上算完成了。登录名和密码要与数据表中匹配，才能登陆成功。这里采用的是Delphi的ADO连接SQL server数据库，具体连接过程，可参照我前两天的博客，这里不再赘述。现在将设计的过程分享下。1、设计的界面及运行的结果运行的时候要保证ADOtable1的active的属性为true.原创 2015-07-29 20:14:36 · 5710 阅读 · 7 评论 -
Delphi7第八天---小型图书管理系统
前两天试着玩GitHub，熟悉了英语，却把头脑给弄大了。文件夹上传到GitHub总不成功，启动Gitshell后，不到一会，系统就崩了，explorer.exe无法工作，只得重启。昨天关机、开机试了不少于10次，问题还没解决，先搁在那，等心缓一缓再弄。有收获的是知道怎么从GitHub中拷贝别人的项目文件。今天终于把搁置了几天的图书管理系统搞定了，完成了图书查询借阅功能和还书功能两大原创 2015-08-04 19:14:32 · 3586 阅读 · 0 评论 -
在public中和在implementation前面定义的全局变量的区别
前言在delphi进行编码时，工程中经常需要用到全局变量，所以正确的使用全局变量将尤为重要。本文主要介绍在public中和在implementation前面定义的全局变量的区别。一、单元文件定义的全局变量先附上一个单元文件，代码中给出个变量所处的位置。 单元名称为uni1.pas TForm1=Class(TForm) Edit1 : TEdit; Label1 : TLabel;原创 2015-11-22 21:29:33 · 1353 阅读 · 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 · 2007 阅读 · 0 评论 -
深入探究Tedit组件的键盘事件和鼠标事件
在Delphi 开发过程中，会用到各种各样的VCL组件，每个组件都会有一系列的event(事件). 下面就Tedit 组件，对它的键盘事件和鼠标事件进行一个对比分析。一、键盘事件OnKeyDownOnKeyDown 事件当按下键盘上的任意一个键，如字母键、数字键、功能键(F1~F12)、Ctrl键、Shift键或Alt键等，都将触发一个 OnkeyDownOnkeyDown 事件.OnKeyPr原创 2015-11-07 17:11:24 · 1226 阅读 · 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 · 6317 阅读 · 0 评论