Delphi区
东北熊孩子
hhh
展开
-
Delphi中的基本控件之TComboBox的使用总结
1.在Delphi中的下拉框的常用属性总结:在Form窗体上拖放三个TCommboBox控件Name属性依次为:cbbyear,cbbmonth,cbbday。procedure TForm1.FormCreate(Sender: TObject);var i: Integer;begin for i := 2000 to 2013 do //添加年份原创 2014-01-09 22:50:26 · 11916 阅读 · 0 评论 -
Delphi中对Excel表格文件的导入和导出操作。
将Listview列表中的数据导入到Excel文件中。procedure TfreadExcel.WriteExcel;var i,idex : Integer; ExcelApp:Variant;begin try dlgSave.FileName := '学生信息.xls'; if dlgSave.Execute then begin if原创 2014-02-27 13:04:23 · 5335 阅读 · 0 评论 -
Delphi中的TIdSMTP和TIdMessage控件的使用说明
procedure TForm1.btnSendClick(Sender: TObject);begin idSMTP.Host := 'smtp.sina.cn'; //邮件发送服务器 try idSMTP.Connect; except ShowMessage('连接到邮箱服务器失败!'); Exit; end; idSMTP.Authenti原创 2014-04-14 17:12:37 · 10247 阅读 · 0 评论 -
Delphi中TADOConnection控件和TADOStoredProc控件的使用调用存储过程
一、我们在Delphi中有时候要访问数据库操作调用存储过程来实现对数据库的原创 2014-05-09 15:18:45 · 3877 阅读 · 0 评论 -
Delphi中画一个矩形
Perform($000B, 0, 0); //锁屏幕 防止闪烁 Canvas.Rectangle(Width+40-step,Height div 3-50,Width -step,0); Canvas.Rectangle(Width-step,Height,Width +40-step,Height div 3); Perform($000B, 1, 0);原创 2014-05-19 09:14:29 · 3760 阅读 · 0 评论 -
C++ Builder 将数据库数据导出到Excel中总结2
void __fastcall TFrmDispatchDataExport::DisplayExcelReport(String _title, String _strSql){ int i=0; Variant ExcelApp1,WorkBook1,Sheet1; AnsiString FileName=GetCurrentDir(); FileName=FileName原创 2015-08-28 17:16:49 · 2132 阅读 · 0 评论 -
C++ Builder 将数据库数据导出到Excel中总结3
String strValue = "";TBookmark mBookMark ;TStringList *tsList = NULL; //存储数据AnsiString XLSFileName;Variant vExcelApp,vWorkBook ,vSheet; //excel设置try{tsList = new TStringList();XL原创 2016-01-18 18:06:59 · 1334 阅读 · 0 评论 -
对于C++ Builder 使用DevPress 控件中的TCXGrid 添加复选框 在勾选时会闪退
TCXGrid 添加Checkbox 功能 勾选时闪退问题原创 2016-03-03 11:05:11 · 1414 阅读 · 0 评论 -
C++ Builder 中去除字符串中的指定字符
C++ Builder中对字符串去除某个字符的方法原创 2016-03-07 18:42:50 · 2431 阅读 · 0 评论 -
C++ Builder 设置系统时间格式
#include #include SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, L"yyyy-MM-dd");FormatSettings.LongDateFormat = "yyyy-MM-dd";FormatSettings.ShortDateFormat = "yyyy-MM-dd";For原创 2016-03-09 17:07:03 · 3534 阅读 · 0 评论 -
Windows下批处理的使用
批处理使用的COPY DEL TASKKILL 命令原创 2016-05-25 08:43:33 · 508 阅读 · 0 评论 -
Delphi中基本控件之SaveDialog控件的使用总结
首先向Form窗体拖一个SaveDialog控件,Name属性改为:dlgSave,然后添加一个按钮,Caption属性改为:浏览,Name属性改为:btnBrowse。然后双击浏览按钮添加如下代码:procedure Tfoffertool.btnbrowseClick(Sender: TObject);var filePath :string;begin dlgSave.原创 2014-01-10 22:06:37 · 15644 阅读 · 0 评论 -
Delphi的format使用总结
1.Format 根据指定所需要的格式,格式化字符串。原型:function Format(const Format: string; const Args: array of const): string; 例子:var s: string; begin //指令类型 type s := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,转载 2014-02-21 12:49:35 · 8555 阅读 · 0 评论 -
Delphi中保证程序只运行一个实例的方法总结
在做Delphi的一个小工具的时候,要让自己的程序保证只启动一个实例如下有几种方法实现:1.使用系统函数FindWindows()函数来实现:program Project1;uses Forms, Windows, offertool in 'offertool.pas' {foffertool}, MyThread in 'MyThread.pas',原创 2014-01-23 10:08:48 · 1032 阅读 · 0 评论 -
Delphi中TStringList类常用属性方法总结
今天在做一个银行报盘操作项目中用的了TStringList类。下面先说TStringList类的定义:是一个String类的集合。我们在使用这个类的时候要引头文件:IniFiles;1.TStringList的基本用法:produce TestTStringList();varmyList : TStringList;beginmyList.Add('aaa=123转载 2014-01-09 00:49:23 · 831 阅读 · 0 评论 -
Delphi中如何给一个字符串从左边进行补0
今天在做一个Delphi项目的时候,要求要给银行的某些字段进行按位数进行补0,没有找到Delphi提供的专门函数于是自己就简单的实现了一个,现在拿出来分享一下,当然了很简单:参数1:要进行补0操作的原始字符串。参数2:要将该字符串补0后的位数。 //注:该参数是补0后的字符串长度function TMyThread.LeftFillZero(str1:string; count:I原创 2014-01-09 23:06:21 · 8072 阅读 · 0 评论 -
Delphi6中使用TADOConnection和TADQuery组件连接访问数据库总结
首先先来简单了解一下TADOConnection控件和TADOQuery控件作用,如下图:好了简单对这两个控件有了一个初步的认识了,下面我们就通过两种形式来进行访问数据库:第一种是通过手动配置不需要写代码来实现;第二种是自己通过代码来连接数据库。下面先介绍一下第一种方法:第一步:向Form窗体拖上面的两个控件,一次将起属性Name改为:adoCnt 和adoQry;第二原创 2014-01-05 12:33:55 · 3731 阅读 · 0 评论 -
Delphi中如何让编辑框只能输入数字或者只能输入一个浮点数值呢?
在Delphi中使用TEdit控件的时候我们有些时候让该控件只能输入数字,或者只能输入一个浮点小数。首先来实现一个编辑框接收键盘按下只能是数字的方法:向界面拖一个TEdit控件。取名为:edt1.其次:添加键盘编辑事件,例如:OnKeyPress。procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);var原创 2014-01-10 21:23:59 · 4030 阅读 · 0 评论 -
Delphi中如何使用TEdit控件和TListBox控件组合使用达到TComboBox控件一样的效果呢?
如何用TEdit控件+TListBox控件实现和TComboBox控件一样的效果呢?首先:向界面拖一个TEdit控件和TListBox控件,将TListBox控件放到TEdit控件正下方。取名分别为:edt1和lstbox。其次:给TEdit控件添加一个OnClick事件或者OnKeyDown事件,例如:OnClick事件。procedure Tfmainform.原创 2014-01-10 21:41:12 · 2203 阅读 · 0 评论 -
Delphi中读写INI配置文件操作总结
首先说一下INI文件的格式如下:[COUNT] #域名COUNT=2 #变量名=值[HXUSER]HXUSER=ht_invest[HXPWD]HXPWD=hundsun[INFO0]NAME=ht_investPASSWD=hundsunORA=168.161.30.6[INFO1]NAME=ht_原创 2014-01-10 22:32:04 · 11362 阅读 · 1 评论 -
Delphi中写日志文件log总结
思想:我们在写日志文件的时候习惯将所有的日志文件全部Add到一个List链表里面,然后用定时器定时从List链表中取数据写文件。所以我使用TStringList,将所以日志Add到TStringList里面,然后用定时器从TStringList里面取数据写日志。procedure Tfoffertool.OnReadListTimer(Sender: TObject);var sys原创 2014-01-10 22:57:54 · 8418 阅读 · 0 评论 -
Delphi中如何让TEdit编辑框控件从右边开始输入数据呢?
如何使编辑框从右边进行录入数据?首先:type TRightEdit = class(TEdit) protected procedure CreateParams(var Params:TCreateParams);override;end;声明一个全局的变量: edt2 : TRightEdit;其次:procedure TRightEdit.C原创 2014-01-10 21:45:57 · 2583 阅读 · 0 评论 -
Delphi中基本控件之TRichEdit控件的使用总结
注:转载源地址:http://blog.163.com/t_form/blog/static/1234852322009760361084/ 刚刚接触了RichEdit这个控件,这个控件和memo控件类是,都是文本编辑控件,但是RichEdit有一个优势,就是可以给指定的字符串添加颜色,字体样式,字体大小,等等功能 如图1.图1:呵呵,想聊天工具,就有这样的效果! 介绍一转载 2014-01-13 15:47:19 · 6669 阅读 · 0 评论 -
Delphi中关于INI文件的格式以及注释说明总结
为什么要用INI文件?如果我们程序没有任何配置文件时,这样的程序对外是全封闭的,一旦程序需要修改一些参数必须要修改程序代码本身并重新编译,这样很不好,所以要用配置文件,让程序出厂后还能根据需要进行必要的配置;配置文件有很多如INI配置文件,XML配置文件,还有就是可以使用系统注册表等。 本文主要是为读者在实现读写INI配置文件模块之前,提供有关INI文件的格式信息。转载 2014-01-21 17:35:23 · 3293 阅读 · 0 评论 -
Delphi中对TRichEdit控件的每一行设置不同的颜色
今天在做一个小程序,要求界面显示出不用的日志信息用不同的颜色进行显示,于是我就用了TRichEdit控件来实现:代码如下:procedure Tfrichedit.FormCreate(Sender: TObject);begin redt.Lines.Clear; redt.Font.Size := 12; //设置字体大小 redt.SelAttributes.Col原创 2014-01-13 15:59:01 · 4159 阅读 · 0 评论 -
C++ Builder 中对编辑框输入double类型数据或只输入字母或数字进行限定
//只能录入double类型的数据if((Key='0')||Key=='.'||Key==0x08){if( edt1->Text.Pos(".")>0 && Key=='.'){Key = 0;}}else{Key=0;}//只能输入字母和数字if( (Key >='a' && Key ='A' && Key ='0') ||Key=原创 2016-06-15 10:39:32 · 1894 阅读 · 0 评论