Delphi
appleric
在不斷學習的過程中,我這個記性賊差的人,需要有個記錄點滴的地方,就這兒了~
展开
-
delphi中后缀名分别指代的文件和用处
dpr 为工程文件dfm 为窗体文件pas 为单元文件cfg 配置文件dof 为项目选项文件(一般没用)dcu compiled units文件 ,编译后的单元文件res 资源文件ddp 文件就是Delphi Diagram Portfolio简写,是用来保存Code Editor中的Diagram信息的. 一般一个项目要考个别人,只需要 dpr,dfm,pas文件即可,如果有cf原创 2009-09-23 08:33:00 · 734 阅读 · 0 评论 -
INC 和 DEC
<br />inc自增函数<br />1.inc(i,n);//i,n:integer;n为自增量<br />相当于i:=i+n;<br />2.inc(i);//i:integer;<br />相当于i:=i+1;<br /> <br />dec自减函数<br />1.dec(i,n);//i,n:integer;n为自减量<br />相当于i:=i-n;<br />2.dec(i);//i:integer;<br />相当于i:=i-1;原创 2010-11-02 09:05:00 · 1785 阅读 · 0 评论 -
用于时间操作的函数
Date函数: 定义:Date: TDateTime; 作用:返回当前的日期 范例:CurrentDate := Date; DayOfWeek函数: 定义:function DayOfWeek(Date: TDateTime): Integer; 作用:得到指定日期的星期值,返回1~7,代表周日到周六。 IncMouth函数: 定义:function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime; 作用:求给定的日期原创 2010-11-02 09:12:00 · 441 阅读 · 0 评论 -
delphi vk_
常数名称 十六进制值 十进制值 对应按键VK_LBUTTON 01 1 鼠标的左键VK_RBUTTON 02 2 鼠标的右键VK-CANCEL 03 3 Ctrl+Break(通常不需要处理)VK_MBUTTON 04 4 鼠标的中键(三按键鼠标)VK_BACK 08 8 Backspace键VK_TAB 09 9 Tab键VK_CLEAR 0C 12 Clear键(N转载 2011-06-16 13:29:00 · 1109 阅读 · 0 评论 -
Delphi判断字符串是否是数字、字母、大小写字母
<br />function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字<br />var<br />i:integer;<br />begin<br />result:=true; //设置返回值为 是(真)<br />Vaule:=trim(Vaule); //去空格<br />for i:=1 to length(Vaule) do//准备循环<br />begin<br />if not Vaule[i] in ['0'..'9'] then//转载 2011-04-27 08:41:00 · 2501 阅读 · 1 评论 -
DELPHI 常用函数用法
Delphi常用函数用法示例━━━━━━━━━━━━━━━━━━━━━━━━━━一、数据类型转换函数 在我们编写程序当中,根据不同情况,会使用到多种数据类型。当要对不同的类型进行操作时,必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。 1.FloatToStr 功能说明:该函数用于将“浮点型”转换成“字符型”。 参考实例: Edi转载 2011-12-30 09:59:21 · 866 阅读 · 0 评论 -
DELPHI TIniFile对象内置函数说明
1、TIniFile对象以Delphi中,定义了一个TIniFile对象,将.INI文件封装在其中,并提供一些方法,专门用来对INI文件进行读写操作。如果在程序中要用到TIniFile类或其方法属性,就必须在程序单元的uses语句中手工加入对IniFiles单元的引用。2、Create方法该方法用来创建一个处理INI文件的TIniFile类型实例。方法声明:constructor转载 2011-12-30 10:21:32 · 2943 阅读 · 0 评论 -
播放 wav 文件
WinAPI: sndPlaySound - 播放 wav 文件 //停止播放procedure TForm1.Button4Click(Sender: TObject);beginsndPlaySound(nil,0);end;转载 2012-07-23 13:49:40 · 338 阅读 · 0 评论 -
如何在Delphi中调用oracle的存储过程返回数据集
如何在Delphi中调用oracle的存储过程返回数据集【delphi+oracle报表解决方案(一)】delphi中调用oracle的存储过程(分带返回游标,不返回值两种) 关键字: delphi ,oracle存储过程,游标,返回数据集,报表注:delphi 6+ oracle 8.1.6一.创建包与包体1.附:建表aaclass为下面作测试用create ta转载 2012-10-16 12:58:25 · 1177 阅读 · 0 评论 -
Delphi关于StringGrid的公用模块
unit SGridFunction; {*******************************************模块名称:StringGrid操作函数模块编写者:Tony 开始日期:2006年12月05日版本号:v1.0.7 ********************************************}interf转载 2013-03-25 23:34:54 · 808 阅读 · 0 评论 -
delphi StringGrid单击表头进行高速排序
<br />unit Unit3;<br />interface<br />uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, Grids, DB, ADODB, DBGrids, ExtCtrls, StdCtrls;<br />type<br /> TForm1 = class(TForm)<br /> StringGrid1: TString原创 2010-10-29 09:15:00 · 4403 阅读 · 0 评论 -
Delphi StringGrid使用
<br />StringGrid行列的增加和删除<br />type<br />TExCell = class(TStringGrid)<br />public<br />procedure DeleteRow(ARow: Longint);<br />procedure DeleteColumn(ACol: Longint);<br />procedure InsertRow(ARow: LongInt);<br />procedure InsertColumn(ACol: LongInt);<br />转载 2010-06-04 23:04:00 · 929 阅读 · 0 评论 -
delphi函数参考手册(比较早的版本)
名称 类型 说明 abort 函数 引起放弃的意外处理 abs 函数 绝对值函数 addexitproc 函数 将一过程添加到运行时库的结束过程表中 addr 函数 返回指定对象的地址 adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列 align 属性 使控件位于窗口某部分 alignment 属性 控件标签的文字位置 allocmem 函数 在堆栈上分原创 2009-11-17 09:40:00 · 434 阅读 · 0 评论 -
Delphi 中串口通讯的实现
Delphi 是新一代可视化开发工具,它具有功能强大、简便易用和代码执行速度快等特点,是全球公认的快速应用开发工具技术的先驱者,它越来越在构架企业信息系统方面发挥着重要作用。由于Delphi 这些显著特点,许多程序员选择Delphi作为开发工具编制各种应用程序。但是,令人惋惜的是Delphi没有自带串口通讯的控件,在它的帮助文档里也没有提及串口通讯,这就给编制通讯程序的开发人员带来众多麻烦,影转载 2009-12-04 21:31:00 · 833 阅读 · 0 评论 -
Delphi 5 控制Excel
(一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( Excel.Application ); 1) 显示当前窗口: ExcelApp.Visible := True转载 2010-03-12 14:26:00 · 360 阅读 · 0 评论 -
stringgrid中字体的对齐
procedure TForm1.Button2Click(Sender: TObject);begin TextFormat := [tfSingleLine, tfCenter, tfVerticalCenter]; StringGrid1.Refresh; TButton(Sender).Caption := 居中对齐;end;procedure TForm1.Button3Cli转载 2010-04-13 00:08:00 · 871 阅读 · 0 评论 -
关于delphi中items和itemindex的问题
索引是itemindexitem是里面的内容索引的话,是从0开始item itemindexA 1B 2C 3listbox1.items.count就是这个列表框里总共有多少项.转载 2010-04-12 23:19:00 · 2354 阅读 · 0 评论 -
如何在TStringGrid控件中按ctrl键选择多行
<br />在CTOS中的预约审核-》转船预约审核中做了相关动作: 主要是在MouseDown事件中写如下代码<br />procedure TFormBookTrans_CHECK.sg_detail_bookingMouseDown(Sender: TObject;<br /> Button: TMouseButton; Shift: TShiftState; X, Y: Integer);<br />begin<br /> if ssCtrl in Shift then<br /> if原创 2010-06-29 10:03:00 · 1129 阅读 · 0 评论 -
批量修改控件属性
for i := 2 to 13 do begin tmp:=DBEdit+inttostr(i); (FindComponent(tmp) as TDbedit).Enabled := false; (findcomponent(tmp) as TDBedit).Color := clm原创 2010-05-17 14:03:00 · 868 阅读 · 0 评论 -
SG不连续多选 草稿
<br />procedure TForm1.StringGrid1DrawCell(Sender: TObject. ACol, ARow: Integer. Rect: TRect. State: TGridDrawState).<br />begin<br /> with stringgrid1 do<br /> begin<br /> if cells[0,arow] = checked then<br /> begin<br /> canvas.brush.color := clhigh原创 2010-06-04 23:05:00 · 538 阅读 · 0 评论 -
关于DELPHI 弹出提示框信息的叙述
<br />函数功能:该函数创建、显示、和操作一个消息框。消息框含有应用程序定义的消息和标题,加上预定义图标与Push(下按)按钮的任何组合。 <br /><br /> 函数原型:int MessageBox(HWND hWnd,LPCTSTR IpCaption,UINT UType); <br /><br /> 参数: <br /><br /> hWnd:标识将被创建的消息框的拥有窗口。如果此参数为NULL,则消息框没有拥有窗口。 <br /><原创 2010-06-04 15:49:00 · 4559 阅读 · 0 评论 -
ShowModal
建立子窗体时出现错误“cannot make a visible window modal”(1)首先在project的options中,将子窗口改为不自动创建,即“Available forms”。(2)如果窗体是MDIChild的话,是不可以ShowModal的,可以Show。因为ShowModal与Show是不同的。 ShowModal时,要求新建FORM的Visiabl转载 2013-10-27 22:17:15 · 926 阅读 · 0 评论