TEdit 组件主要用于数据的输入和显示和编辑等操作. AutoSelect 获取组件焦点.该属性只能在单行文本组件使用.值为True为选中.false则不选中. BorderStyle 设置编辑框控件的外观效果.当值为bsSingle,为一个单线边框.为bsNone则无边框 CanUndo 该属性可以确定用户修改文本后可以undo方法回退. CharCase 设置编辑框控件文本的大小写. 如图所示 MaxLength 设置文本的最大长度,为0表示长度没有限制. PasswordChar 用来显

Object Passal的程序结构很特殊,与其它语言如C++,Object Windows等结构都不同.一个Delphi程序由多个称为单元的源代码模块组成.使用单元可以把一个大型程序分成多个逻辑相关的模块,并用来创建在不同程序中使用的程序库. 8.1 Program单元 Program单元就是Delphi中的项目文件. Program单元是一个特殊的单元,类似于C语言中的Main程序,即为应用程序的主程序.一个程序可以有多个单元组成,也可以只有一个Program单元组成,例如前面我们介绍过的D

delphi获取Exe文件版本信息的函数 Type TFileVersionInfo = Record FixedInfo:TVSFixedFileInfo; {版本信息} CompanyName:String; {公司名称} FileDescription:String; {说明} FileVersion:String; {文件版本} InternalName:String; {内部名称} LegalCopyright:String; {版权} LegalTrademarks:String;

1． 数据类型 特定类型 日期和时间 Delphi 也用实型数表示日期和时间数据.但为了更准确起见,Delphi 特别定义了TDateTime 数据类型,这是一个浮点类型,因为这个类型必须足够宽,使变量能容纳年.月.日.时.分和秒.甚至毫秒.日期值按天计数,从1899-12-30开始,放在TDateTime 类型的整数部分:时间值则位于十进制数的小数部分. TDateTime 不是编译器可直接识别的预定义类型,它在System单元定义: type TDateTime = type Double;

Delphi的没落有三个原因:1,Object pascal并没有像C/C++那样成为业内标准. 如果你使用C或C++写程序,可以在任何地方进行编译,例如Windows.Linux.手机,甚至是单片机上都可以使用C写程序. 没有成为标准的后果就是跨平台,以及影响第三方编译器的出现.Delphi曾经有一个Linux版本叫做Klinx但是已经好多年不再更新了. 所以这么多年来Delphi只有Borland一家公司苦苦支撑. 2,人才流失,与内部决策失误.Delphi之父Anders Hejlsber

自1995年Borland公司发布Delphi 1.0以来,Delphi受到很多开发者的亲睐,到1999年发布Delphi5,Delphi以其开发快捷.控件丰富.易于上手等优势吸引了众多的开发者,用户人数达到高潮,一度超越Visual Studio.可是好景不长,在推出Delphi7之后不久,Borland公司也走向衰败,最终被人收购,仅卖了区区7500万美元. Borland公司倒闭的主要原因是公司财务出现困难,内部矛盾上升.但我认为深层次的原因是产品定价死板且价格过高,记得当时一套Delph

最近一段时间似乎流行源码分析:)我也来谈谈在过去一段时间里对VCL源码的分析方法方面的一点体会,本文将不探讨VCL类库的构架和设计模式方面的东本,只是以我们常见的控件属性/方法的实现过程作简单的说明,希望对初学者有所帮助. VCL分析方法例:TButton.Caption属性的由来(本文仅以此献给DELPHI初学者)用过一段时间DELPHI的朋友,都会对VCL源码感兴趣.本人也常常在各大论坛见到一些网友研究讨论过关于VCL源码的贴子.不过,很多网友很努力的想看懂,可最后还是半途而废,因为他们总是

先介绍一个可能比较常用的方法,获取当前时间 var datetime: string; begin datetime:= FormatDateTime('yyyy-mm-dd hh:mm:ss', Now); ShowMessage(datetime); end; 其中的Now 函数是获取当前的时间,FormatDateTime 用于将Now获取的时间信息格式化为想要的格式. 这个方法可以获取当前时间,并且格式化为例如 2008-09-10 09:10:58 的格式. 在介绍能够获取毫秒信息的方

最近在开发中使用到了UpDown这个控件,但是因为之前没有使用过,所以很不熟悉,于是就编写了一个简单的demo来学习UpDown以及其结合TEdit的用法. 初步的常用功能的简介 目前(2015.08.07)只是涉及到其简单的用法,因为目前我所需要使用的就只有这些内容,系统化的使用和知识将会在以后需要的时候再补充. 目前涉及到的内容有UpDown组件与TEdit组件的配合使用.UpDown的Position属性. 寻找UpDown: 如下图,Win32下,用红色框框出来的 先看一下这个程序的运行

经常遇到这样的情况,在我们使用Delphi的可视化工具进行UI设计的时候,我们拖拽TEdit或者Label组件,并且在可视化界面上设置它们的长.宽 但是当我们编译和运行程序的时候,却发现真正显示出来的 TEdit或者TLabel组件并不是我们在可视化界面所拖拽的长和宽(显示的“有问题”) 具体的情况见下面的两张图 1.我们在Delphi的可视化界面上需要一个TEdit和TLabel组件,于是我们拖拽了两个组件放在上面,并且设置拖拽设置了长和宽(为了显示清楚,我设置了颜色) 这个时候通过拖拽设计界

Uses DateUtils //时间单元,非常有用. 记得引用这个单元,不然不能用. CompareDate 比较两个日期时间值日期部分的大小 CompareDateTime 比较两个日期时间值的大小 CompareTime 比较两个日期时间值时间部分的大小 DateOf 去除日期时间值的时间部分 DateTimeToJulianDate 转换日期时间值为儒略日 DateTimeToModifiedJulianDate 转换日期时间值为改进的儒略日 DateTimeToUnix 转换日期时间值

1.计算软件启动了多长时间:用定时器,每分钟触发一次: procedure TFrmMain.tmCheckLegalTimer(Sender: TObject);Var Minutes:LongInt; NewDay:String;begin Minutes:=MyReg.ReadInteger('Minute'); Inc(Minutes); FrmSetUp.lbRunTime.Caption :=Format('%d天 %2.2d小时 %2.2d分钟', [Minutes div 60

FormatDateTime('yyyy-mm-dd hh:nn:ss',Now) FormatDateTime('hh:mm:ss:zz',Now) if (TimeOf(now) < pub_StartWorkTime) or (TimeOf(now) > pub_EndWorkTime) then exit; //非工作时间退出 读ini pub_StartWorkTime := MyIniFile.Readtime('Setup','StartWorkTime',strtotime('

delphi TEdit设为下横线,类似填表格效果,无需第三方控件就可以实现. 无须编写代码,只要设置一下控件属性 需要修改这些属性: BorderStyle改为bsNone BevelKind改为bkSoft BevelEdges下的项目中只将beBottom设为True,其余设为False 为了美观,最好再将Ctl3D设置为False.

DateUtils时间单元说明 CompareDate 函数 比较两个日期时间值日期部分的大小 CompareDateTime 函数 比较两个日期时间值的大小 CompareTime 函数 比较两个日期时间值时间部分的大小 DateOf 函数 去除日期时间值的时间部分 DateTimeToJulianDate 函数 转换日期时间值为儒略日 DateTimeToModifiedJulianDate 函数 转换日期时间值为改进的儒略日 DateTimeToUnix 函数 转换日期时间值为Unix/L

Delphi日期时间,就是常见的 2014-05-02 10:37:35 -------------------------------------------------------------------- UNIX日期时间,一个整数,从1970/01/01 开始的秒数,int64位 ------------------------------------------------------------------- 标准UTC时间, 世界统一时间,世界标准时间,国际协调时间,简称UTC 不

这几天因为自己要学习编写一个小程序中要用到一些时间处理.就在网上搜集一些教材学习到一般的应用,做个笔记,加深印象. 用上Delphi中相应的函数,Delphi的时间处理起来还是很容易的. Delphi的时间类型是TDateTime,其实是一个Double.这个double的整数部分,就是从很久很久以前的某一天算起的天数.小数就是时间部分了.因为很远很远的一天是从0点开始的.所以小数部分的0值也是对应着一天的开始0点0分0秒. 用函数DateTimetoStr(0)就可以看到那神秘很远的一天了.这

在开发应用程序时往往需要获取当前系统时间.尽管Y2K似乎已经平安过去,但在我们新开发的应用程序中还是要谨慎处理“时间”问题. 在<融会贯通--Delphi4.0实战技巧>(以下简称“该书”)第89页专门介绍了两种获取当前系统时间的方法,但这两种方法都存在不足或错误,以下就此进行讨论. 该书第一种方法是利用Time()函数获得当前系统时间,返回结果是TDateTime结构类型的变量.例如: procedure TForm1.Button2Click(Sender: TObject); var D

Access数据库虽然功能是差了点,但是有时对一些少量的数据保存很是很方便的,在delphi中也是如此,在查询时免不了要按照日期或 时间作为查询条件,access有些特别. select * from table where startime >#2014-02-20 2::12::00# 注意两点: 1.日期时间两端加# 2.时间中间的分隔符冒号要连续两个,因为在delphi中,:代表参数,::两个冒号表示非参数.

在开发应用程序时往往需要获取当前系统时间.尽管Y2K似乎已经平安过去,但在我们新开发的应用程序中还是要谨慎处理“时间”问题. 在<融会贯通--Delphi4.0实战技巧>(以下简称“该书”)第89页专门介绍了两种获取当前系统时间的方法,但这两种方法都存在不足或错误,以下就此进行讨论. 该书第一种方法是利用Time()函数获得当前系统时间,返回结果是TDateTime结构类型的变量.例如: procedure TForm1.Button2Click(Sender: TObject); var D

在实际工作中,常遇到对Ini参数的修改,显示与保存问题. 如果手工写代码,会有很大的工作量. 本例把ini文件的参数与控件绑定起来,以达到方便使用的目的. 本例程共有2个单元 uSimpleParam->TSimpleParam;//本功能 uSimpleList->TSimpleList;用泛型实现的TList,更实用一点 源码下载 //用法: const csEditSimpleParam = 'EditSimpleParam'; csCheckBoxParam = 'CheckBoxPa