zhangzhifeng886的专栏

在实际运用中，用到了TMS的TAdvSpreadGrid表格，这个表格和CDS没有关系。造成了在一些操作上的被动性(比如：移动，隐藏，增加字段)我个人想对于程序，我进行如下处理：1）把定义一个类，存储字段的信息，如下：   TDefDbField = class         FieldCode: string;         FieldName: string;

MaskEdit用法  MaskEdit是用来建立编辑框的，但它与Edit编辑框可以输入任意字符不同，MaskEdit可以限制用户只能按照既定的输入格式输入。掩码编辑框（MaskEdit）是一种特殊的编辑框。使用它可以设计出许多复杂的输入格式。在选用MaskEdit之后，需要

<br />  <br />一、Owner和Parent的区别： <br />　　Parent属性是指构件的包容器，构件只能在此范围内显示和移动。举例子如下： <br />　　(1)在Form1的窗体上，放一个Panel1,并将Panel1拉大， <br />　　(2)在Panel1上放一Button1； <br />　　(3)在Form1上放一Button2。 <br />　　现在如果移动Panel1,则Button1随着Panel1移动，这是因为Button1的Parent是Panel1。现在将Butt

Delphi ZConnection连接sqlite<br />Delphi2011-01-06 18:47:42阅读0评论0  字号：大中小 订阅  ZConnection2.Connected := False;<br />  zConnection2.Database := '';<br />  zConnection2.Database := aDataBaseFilePath;<br />  ZConnection2.Protocol:='sqlite-3';<br />  ZConnection

DELPHI中Format函数功能及用法详解 DELPHI中Format函数功能及用法详解function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas功能：返回按指定方式格式化一个数组常量的字符形式说明 这个函数是Delphi中用得最多的函数，现在就列举几个例子以得到直观的理解"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型它是以"%"开始,

<br />Delphi2011-01-05 15:44:52阅读0评论0  字号：大中小 订阅<br />应用实例<br />    Enlib组件包安装成功后，在系统的组件面板中会显示“enlib”组件包标签（如图1），添加DBGridEh到窗体的方法与其它组件一样。在窗体中添加该组件后，请跟我一起来实现图2的一些特殊效果，具体属性设置请参考属性表的说明。 <br />  <br />A、定制标题行<br />1、制作复杂标题行<br />    标题行可设为2行以上高度，并可以为多列创建一个共同的父标

Delphi Exception.Create<br />function TForm1.aa: Boolean;<br />var<br />  i:Integer;<br />begin<br />  Result := True;<br />  i := 10;<br />  if i > 9 then<br />  begin<br />    Result := False;<br />    raise Exception.Create('haha');<br />  end<br />  el

Delphi  StringGrid使用全书( 一) 简介：   <br />(1)正确地设置StringGrid列宽而不截断任何一个文字方法是在对StringGrid填充完文本串后调用SetOptimalGridCellWidth过程<br />-----------程序片断-------------------------------------------------<br /> (*<br /> $Header$<br /> Module Name : General/BSGrids.pas<b

<br />  <br />//用惯JAVA或C#的人可能对DELPHI非常生气,连基本的类型都没有,我平时工作中,经常会曾试着把一些函数集合在一起,也经常做一些属于自己的基础类型的函数,此处把它们弄出来,有不当之处,请大家点评.<br />unit BaseClass;<br />interface<br />uses<br />  SysUtils, Classes, StrUtils, IdGlobal, Math;<br />type<br />  TCharSet = set of char;<b

取当前行<br />CurrentLine:=memo1.Perform(EM_LINEFROMCHAR,$FFFF,0);  

这个是效果图，挺爽的吧 object Form1: TForm1  Left = 192  Top = 114  Width = 979  Height = 563  Caption = 'Form1'  Color = clBtnFace

MM（ModelMaker）两小时上手指南 作者：郭方明 完成日期：2005-12-06 version 1.0 联系信箱：gfm_job@163.com 注：转载文章，请注明作者信息。 关键字：ModelMaker上手指南 Delphi建模工具 CASE工具 引文： 本文通过一个简单的例子介绍使用MM（ModelMaker）设计类图和生成Delphi代码，以及代码逆向

笔者最近开发的系统中需要写一个下载文件的功能。以前用BCB调用API写的很烦琐，忽然想起有一个API就可以搞定了，于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码，均出自CSDN。

Delphi PageControl的TabSheet的页签的隐藏设置   把TabVisible的属性设置成False就可以了TabSheet_Operator.TabVisible       := False; TabSheet_LimitEnumerate.TabVisible := False;

OpenDialog1.Filter := '97-2003Word程序(*.doc)|*.doc|2007程序(*.docx)|*.docx';

ForceDirectories(Dir)是Delphi和bcb中用来创建一个目录的函数。 支持多级目录。编辑本段说明　　bool ForceDirectories(AnsiString Dir); 　　返回：返回创建目录是否成功。 　　参数：Dir是创建目录路径。如："F:\\a\\b\\c"编辑本段与CreateDir区别　　ForceDirectories创建多级目录，父目录

以前总是循环展开，现在有这个属性，就简单多了RzTreeView_DWDept.FullExpand;  这样就可以全部 展开了。还有一个问题，设置节点选中RzTreeView_DWDept.SetFocus;if RzTreeView_DWDept.Selected = nil then      RzTreeView_DWDept.Selected := RzTreeVie

有的时候 ,我们希望给所有的控件的某个指定的事件挂接一个自定义的事件处理程序 ,例如 ,OnContextPopup 事件 ,那么该如何做呢？请参看下面的代码 ,下面的代码会给所有有 OnContextPopu 事件的控件都挂接指定的处理程序 :  private    { Private declarations }    procedure AssignOnContextPop

注：Delphi中的Char,PChar,PByte,Byte,String的相互转换，您是不是也遇到过，为此头疼过吗？你要是明白了他们的原理就会轻松了。话题064840的标题是： Q:关于PChar的用法 (200分)分类：非技术问题 PTiger (1998-10-19 18:33:00) 我要从tPing.ini中读取Host段中的Address键值，但是读不出。1、首先往t

AdvStringGrid_IDX.AutoSizeColumns(False);

一,定义://1. 标准方法：var MyArr: array[0..10] of Integer; //定义静态一维数组//2. 根据预定义类型来声明数组：type   TMyArr = array[0..10] of Integer; //先定义一个数组类型var    MyArr: TMyArr; //再定义静态数组//3. 在非过程区可以直接赋值：

目的：如何使用Variant 数组； <br />Variant： <br />一种可以拥有各种数据类型； <br />也可以告诉目前存储的数据是什么类型(通过使用VarType函数)； <br />可以给相同的Variant分配不同的数据类型，只要Variant包含数字值就可以执行算法； <br /><br />variant数组只不过是variant型的数组，不必包含同类型的 数据；　<br />variant数组的创建方法： <br />function VarArrayCreate(const Bo

Delphi SetFileAttributes 功能:修改文件属性SetFileAttributes 功能:修改文件属性<br /><br />这是一个修改文件属性的API<br />使用下面WINDOWS API函数<br />function SetFileAttributes(lpFileName: PChar; dwFileAttributes: DWORD): BOOL; stdcall;   <br />{$EXTERNALSYM SetFileAttributes}   <br />func

<br />Delphi2010-11-30 09:19:46阅读0评论0  字号：大中小 订阅if (month in (1,3,5,7,8,10,12)) <br />return 31; <br />else if (month in(4,6,9,11)) <br />return 30; <br />else if (year 是闰年) <br />return 29; <br />else <br />return 28;  <br />闰年的算法 <br />((year mod 4 = 0)

delphi ADVStringGrid 怎么显示下拉列表<br />Delphi2010-11-30 09:20:41阅读0评论0  字号：大中小 订阅AdvStringGrid_IDX.ControlLook.DropDownAlwaysVisible:=True;    显示下拉列表<br /> <br />procedure TForm_IndexManager.AdvStringGrid_IDXComboChange(Sender: TObject;<br />  ACol, ARow, AIte

delphi ADVStringGrid 怎么显示下拉列表<br />Delphi2010-11-30 09:20:41阅读0评论0  字号：大中小 订阅AdvStringGrid_IDX.ControlLook.DropDownAlwaysVisible:=True;    显示下拉列表<br /> <br />procedure TForm_IndexManager.AdvStringGrid_IDXComboChange(Sender: TObject;<br />  ACol, ARow, AIte

delphi ADVStringGrid 怎么显示下拉列表<br />Delphi2010-11-30 09:20:41阅读0评论0  字号：大中小 订阅AdvStringGrid_IDX.ControlLook.DropDownAlwaysVisible:=True;    显示下拉列表<br /> <br />procedure TForm_IndexManager.AdvStringGrid_IDXComboChange(Sender: TObject;<br />  ACol, ARow, AIte

<br />在网上搜索了一下，似乎没有什么关于google的URL编码解码的很详细的资料，因此在这里写一下，希望给有用的人提供一点帮助。<br /><br />使用google谷歌搜索一下关键词，对应的编码如下：<br />刀：%E5%88%80<br />刀具：%E5%88%80%E5%85%B7<br />刀具网：%E5%88%80%E5%85%B7%E7%9A%84<br /><br />因此可见，google对URL的编码并非简单的httpencode编码，因为httpencode编码后的字符串应该

引用这个单元jpegprocedure TCommMethods.uploadimage(img:TImage);var  OpenPictureDialog:TOpenPictureDialog;  bmp1:TBitmap;  jpg1:TJpegImage;  sFileName:string;begin   OpenPictureDialog:= TOpenPictureDialog.

1、先用Const 定义一个常量，例如 const WM_MyMessage=WM_USER+$200;2、在要实现的unit中定义一个私有方法   procedure doMyMessage(var msg:TMessage);message WM_MyMessage;3、实现这个私有方法    procedure TForm1.doMyMessage(var msg:TMess

 Dbgrideh显示从表中查询出来的各个列的值，因为用到表头实现排序，使列数增加，循环一次，增加一次。for i:=0 to  4 dobeginDBGridEh1.Columns.Add;DBGridEh1.Columns.Items[i].Title.TitleButton:=true; end;去除办法：for i:=0 to 4 doDBGridE

EhLib使用全攻略  使用 TDBSumList 组件   还记得以前有朋友问过这样一个问题：在 DBGrid 下如何像 Excel 一样能够做统计计算，实话说，使用 DBGrid 来做的话着实不易，不过现在有了这个咚咚，相信会简单些。以下是摘录的一些使用上的说明： 【TDBSumList说明

Form1.Position   :=   poScreenCenter

<br />function  TForm_MEA_CHG.isEffectsDate(astrdatetime:string):Boolean;  //判断是不是有效的时间<br />var<br />  jstrYear,jstrMonth,jstrday:string;<br />  IMonth:integer;<br />begin<br />  Result:=true;<br />  jstrYear:=Copy(astrdatetime,1,4);<br />  jstrMonth:=Cop

  //单位<br />  TDW = class<br />    DW_ID  : string;  //单位ID<br />    DW_TYPE: string;  //单位类型<br />    DW_CODE: string;  //单位编码<br />    DW_NAME: string;  //单位名称<br />    P_CODE : string;  //上级单位编码<br />    L_CODE : string;  //级次码<br />  end;<br /> <br />p

Delphi QuotedStr函数的原型function QuotedStr(const S: string): string;<br />var<br />  I: Integer;<br />begin<br />  Result := S;<br />  for I := Length(Result) downto 1 do<br />    if Result[I] = '''' then Insert('''', Result, I);<br />  Result := '''' + Resul

<br />Application.ProcessMessages;<br /> LockWindowUpdate(Self.Handle);  //锁住当前窗口<br />LockWindowUpdate（0）//解除锁定窗口<br /> <br />LockWindowUpdate不但闪烁，而且有可能引起桌面闪烁。因为LockWindowUpdate并不忽略消息，只是暂时不响应，所以有可能积聚多个重画消息，并在使用LockWindowUpdate（0）之后依次响应。<br />而使用SendMessag

<br />//通过调用 BeginWaitProgress UpdateWaitProgress  EndWaitProgress这几个方法来实现<br />procedure IniApp;<br />begin<br />  BeginWaitProgress(Application.Handle, 10, Application);<br />  try<br />    VQUERCLASS := TQUERYClass.Create;<br />    VGridClass := TGridCl

<br />//通过调用 BeginWaitProgress UpdateWaitProgress  EndWaitProgress这几个方法来实现<br />procedure IniApp;<br />begin<br />  BeginWaitProgress(Application.Handle, 10, Application);<br />  try<br />    VQUERCLASS := TQUERYClass.Create;<br />    VGridClass := TGridCl

<br />UpdateWindow<br />目录<br />功能 <br />函数原型 <br />参数 <br />返回值 <br />使用要求 <br />编辑本段功能<br />　　如果窗口更新的区域不为空，UpdateWindow函数通过发送一个WM_PAINT消息 <br />　　来更新指定窗口的客户区。函数绕过应用程序的消息队列，直接发送WM_PAINT消息 <br />　　给指定窗口的窗口过程，如果更新区域为空，则不发送消息。 <br />编辑本段函数原型<br />　　BOOL Upda