Delphi 7
Deen12520
分享知识 分享快乐
展开
-
Delphi7学习第一天
不积跬步,无以至千里。宁静才能致远。从数学系转到软件工程,开始的过程是抓狂的。有人说有两种人是值得钦佩的:一种是为了自己的兴趣而痴狂的人、一种是坚持把一件令自己痛苦的事做出成绩的人。我成不了第一种人、所以我必须让自己努力成为第二种人。对编程从不感冒的我,得朝着IT工程师的道路迈进。提前进入研究生生涯,努力让自己成为技术出身。实验室,将成为我生活的重要的部分。第一天感慨略多。今天原创 2015-07-24 22:51:06 · 2133 阅读 · 0 评论 -
messageBox 中显示变量及实现换行
前言总结下今天使用messageBox过程中解决的一些问题,共勉。 messageBox格式使用请参考: delphi中Application.MessageBox函数用法详解1、显示变量直接上干货(代码):vars:string;....s:='存档失败';Application.MessageBox(PChar(s),'错误',MB_ICONERROR);//窗口标识可以含多个,例如下原创 2015-11-26 21:41:55 · 8394 阅读 · 0 评论 -
locate
locateContents [hide] 1 Definition 2 Description 3 Examples 4 See alsoThe article from http://wiki.freepascal.org/locateDefinitionUnit: FreePascal, unit db function Locate(const KeyFields: str转载 2016-01-20 11:33:59 · 749 阅读 · 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 评论 -
Delphi 编码常用快捷键
前言 善于使用快捷键,将大大提高编码效率。现将自己项目过程中使用到的快捷键做个记录,日后遇到新的快捷键,会持续更新。常用快捷键 1、Ctrl + Y 删除当行记录 2、Ctrl +shift+C 将自定义的函数或过程自动加到声明中,若你先声明一个过程或函数后,则会直接生成过程或函数的名称,begin和end;持续更新中….原创 2016-01-27 17:14:22 · 1091 阅读 · 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 · 14879 阅读 · 1 评论 -
一个稍复杂的字符串截取问题
给定一个字符串,如下图所示:要求: 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 评论 -
messagebox 和 messagedlg
一、messagebox 相关请参考The Win32 Message Box二、messagedlg 相关请参考messagedlg原创 2016-03-30 09:41:49 · 760 阅读 · 0 评论 -
file not found:'DBAccess.dcu'解决
问题 今天运行Delphi 项目时,报错: file not found:’DBAccess.dcu’原因 Delphi项目中用到Unidac控件,Unidac控件的路径名无意中被我修改了。找不到文件所以报错。解决方案 在Delphi工具栏中打开 Tools->Environment Options: 然后在Library选项卡中的Library Path中加入该控件的路径。如下图:原创 2016-03-09 23:07:58 · 2441 阅读 · 0 评论 -
“ordinal type required”问题解决
问题重现case Copy(spbm,1,2) of '98': //无条码计件 begin Deal13JJM(spbm); end; '99': //无条码称重 begin Deal13SXM(spbm);原创 2016-03-26 12:04:51 · 2994 阅读 · 0 评论 -
Delphi常见错误及解决方法
前言本节整理了Delphi中一些常见错误、并给出了相应的解决方法。问题及解决1、Dataset not in edit or insert mode问题分析:dbgrid是可以修改的,但需要至少两个条件:第一,dbgrid本身属性设置允许用户修改,第二它所绑定的数据集组件是可以修改的。你所说的出 错:dataset not in edit or insert mode,应该是属于第二种情况,需要将d原创 2016-04-21 13:09:41 · 3960 阅读 · 0 评论 -
Fatal Error: Cannot create output file “project1.exe”
解决方法:将项目下的project1.exe文件注释掉。另外,在stackoverflow找到类似的解答(对我没有用,仅提供参考)参考网站:Fatal Error: Cannot create output file “project1.exe”I found the solution. It appears that disabling the service “Application Exper原创 2016-04-21 16:55:54 · 1116 阅读 · 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 评论 -
在public中和在implementation前面定义的全局变量的区别
前言在delphi进行编码时,工程中经常需要用到全局变量,所以正确的使用全局变量将尤为重要。本文主要介绍在public中和在implementation前面定义的全局变量的区别。一、单元文件定义的全局变量先附上一个单元文件,代码中给出个变量所处的位置。 单元名称为uni1.pas TForm1=Class(TForm) Edit1 : TEdit; Label1 : TLabel;原创 2015-11-22 21:29:33 · 1388 阅读 · 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 评论 -
Delphi7学习第二天
有阿甘式的执著,就会得到意想不到的结果。1、代码编辑器对代码编辑器的基础代码的解释。unit Unit1; //单元文件名 //接口关键字,标识文件说调用的单元文件interfaceuses //程原创 2015-07-25 21:10:32 · 1026 阅读 · 0 评论 -
Delphi学习第四天
今天开始碰到一些坎,一个以前都没越过的坎。或许说是自己内心的一种的恐惧。从基本语法到实际应用的过渡,感觉很吃力。下午效率很低,一直在这个节点纠结。要想有所突破,这坎必须得迈。沉下心来,慢慢地去思考。一切都会好。首先,一道递归的题让我纠结了很久,晚上终于把它解决。1、递归函数的使用先附上代码:program Project1;{$APPTYPE CONSOLE}原创 2015-07-27 21:24:26 · 992 阅读 · 0 评论 -
Delphi学习第三天
The third day.战争才刚刚开始。Fighting 是不变的主旋律。今天周末,长沙的天时雨时晴,未外出,基本在实验室呆着。接触的内容略多,慢慢做个总结。先前不太明白Delphi和Pascal语言的关系,今天看书,有一句话算是解除了我的疑惑:Delphi是以Object Pascal语言为基础的可视化开发工具;这关系就像eclipse和java一样。Delphi开发原创 2015-07-26 20:41:31 · 1242 阅读 · 0 评论 -
Delphi 7学习第六天-简单登陆界面的实现
第一次尝试一天码两篇文章,分享知识的过程是快乐的。上午试着去做一个简单的登陆界面,基本上算完成了。登录名和密码要与数据表中匹配,才能登陆成功。这里采用的是Delphi的ADO连接SQL server数据库,具体连接过程,可参照我前两天的博客,这里不再赘述。现在将设计的过程分享下。1、设计的界面及运行的结果运行的时候要保证ADOtable1的active的属性为true.原创 2015-07-29 20:14:36 · 5743 阅读 · 7 评论 -
Delphi 7中ADDConnection 连接MySQL数据库
Delphi 7中使用ADO组件去连接MySQL数据库并没有想象中的那么简单。花了一下午的时间才用ADDTable控件连接上MySQL数据库。途中参考了文章:delphi 7.0 通过ODBC5.1 连接MySQL数据库简单实例 上面的文件已经阐述了蛮多,下面我就自己实例操练时遇到的一些问题做一个补充。准备工作1、Delphi7 连接MySQL必须使用MySQL O原创 2015-07-29 19:16:55 · 10978 阅读 · 2 评论 -
Delphi7学习第五天
今天天好,心情也好,一切顺风顺水。上午老师培训,下午自己操练。培训的内容不多,但有时感觉只要有人点拨一下,就会收益很多。下午试着使用ADOConnection控件完成了与SQL server数据库的链接,并在不断发现问题和解决问题中,基本实现了对数据表的增删改查操作。主要用到的控件有:ADOConnection、ADOTable、DataSource、DBGrid,一个label,四个原创 2015-07-28 20:25:59 · 1635 阅读 · 0 评论 -
Delphi7学习第七天
这两天在试着做一个图书管理系统(参照书本),还没完成。其实刚开始学,没那么快就自己独立开发,至少我的能力暂时还是受限。顺着书本走、熟悉一下项目流程,也给自己一份信心。等系统做完,会附上完整的源码。先给出做系统当中会用到的知识。爆几张图先,如下:1、RadioGroup1控件的使用Items属性:如果你想设置两个radio,比如男和女,就可以在这个属性里设置。原创 2015-07-30 20:10:19 · 1590 阅读 · 0 评论 -
Delphi7第八天---小型图书管理系统
前两天试着玩GitHub,熟悉了英语,却把头脑给弄大了。文件夹上传到GitHub总不成功,启动Gitshell后,不到一会,系统就崩了,explorer.exe无法工作,只得重启。昨天关机、开机试了不少于10次,问题还没解决,先搁在那,等心缓一缓再弄。有收获的是知道怎么从GitHub中拷贝别人的项目文件。今天终于把搁置了几天的图书管理系统搞定了,完成了图书查询借阅功能和还书功能两大原创 2015-08-04 19:14:32 · 3634 阅读 · 0 评论 -
深入探究Tedit组件的键盘事件和鼠标事件
在Delphi 开发过程中,会用到各种各样的VCL组件,每个组件都会有一系列的event(事件). 下面就Tedit 组件,对它的键盘事件和鼠标事件进行一个对比分析。一、键盘事件OnKeyDownOnKeyDown 事件当按下键盘上的任意一个键,如字母键、数字键、功能键(F1~F12)、Ctrl键、Shift键或Alt键等,都将触发一个 OnkeyDownOnkeyDown 事件.OnKeyPr原创 2015-11-07 17:11:24 · 1257 阅读 · 0 评论 -
虚拟键码表
编程中,经常会碰到需要判断键盘的输入,如回车、取消等,但是要让计算机识别你说按下的键,就需要将你按下的键映射到相应的虚拟键码表中。 比如你按下的是F1键、在Delphi 中就可以写成 key=VK_F1. 然后计算机就能捕捉到你按下的是F1键。下列给出相应的虚拟键码表。 资料参考:Virtual Key Codes表中的列分别为符号常数名(symbolic constant name)、十六进原创 2015-11-07 17:02:39 · 1589 阅读 · 0 评论 -
Delphi字符串中添加特殊字符及ASCII码表
本文转自:Delphi字符串中添加特殊字符及ASCII码表Delphi字符串中有时需要用到一些特殊字符,比如“换行”“TAB”“退格”等,这时,可以用井号“#”+字符的10进制ASCII码方式实现。如“#9”代表“TAB”,“#8”代表退格等。ASCII码中,第0~32号及第127号是控制字符,常用的有LF(换行)、CR(回车);第33~126号是字符,其中第48~57号为0~9十个阿拉伯数字;65转载 2015-10-27 16:18:18 · 5944 阅读 · 0 评论 -
Delphi 文件读写
文件的打开与关闭 AssignFile :把一个外部文件名和一个文件变量相关联 Reset :打开一个存在的文件 Rewrite :创建并打开一个新文件(或覆盖原有文件) Append :以添加方式打开一个文件(只适用于文本文件) CloseFile :关闭一个打开的文件 FileOpen :打开一个特定的文件并返回文件句柄 FileCreate :创建一个给定文件名的原创 2016-06-05 19:53:38 · 1310 阅读 · 0 评论