varick_zhong的专栏

 unit word;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, WordXP, OleServer, StdCtrls, ComCtrls;type  TForm1 = class(TForm)    Button1: TButt

delphi添加{$R WindowsXP}，控件具有系统主题风格

Format('%12.2n',[1234563327.226]) = 1,234,563,327.23

function ValidatePID(const APID: string): string;  {内部函数,取身份证号校验位,最后一位,对18位有效}  function GetVerifyBit(sIdentityNum: string): Char;  var    nNum: Integer;  begin    Result := #0;    nNum

advsg.SortSettings.Column := 1;//可在属性中设置    advsg.SortSettings.Show := True;//可在属性中设置    advsg.SortSettings.Direction := sdDescending; //sdAscending    advsg.QSort;

'select ''全部'' as 所属公司, ''111'' as 机构号 union all select organization_name as 所属公司, symbol as 机构号 from organization  where '''+userinfo.PersonOrgGroup+''' like ''%'' +symbol+ ''%'' '

Delphi ListView基本用法大全//增加项或列(字段)ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Caption:='id';

update A set A.orgid=B.organization from SH_STOCK_product_out_stock A, JsInfo.dbo.shsp_out_stock B where A.autonum=B.autonumupdate A set A.orgname= B.name from SH_STOCK_product_in_stoc

select * into jhdnr from JsInfo.dbo.jhdnr

uses DateUtils;const  IntMultiplication: Array[1..17] Of Integer=(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2);//函数名：IsRightID//参数：sID，身份证号码 （输入）//返回值：sID是标准身份证号，返回OK，否则返回相应信息function IsRi

procedure TWebOrder.SelectAll;var  iSelected: Integer;begin  iSelected := 0;  if DataSet.RecordCount = 0 then    Exit;  try    DataSet.DisableControls;    DataSet.First;    case Da

with ClientDataSet1 do             //edit1.text  begin    Filtered  := false;    Filter :=  'orderno like ''%'+edit1.text + '%''' ;     Filtered  := true;  end;

Randomize;  ShowMessage(IntToStr(Random(100)));

TcxComboBoxProperties(cxbrdtm1.Properties).Items.Add('ddddd');设置dxBarManager属性alwaysSaveText为ture，可解决每次输入edit推动焦点时自动为空的问题

 uses ComObjprocedure TForm1.Button1Click(Sender: TObject);const  TIMEOUT: Integer = 5000;//超时时限，单位毫秒var  o: Variant;  t: Integer;begin  o := CreateOleObject(InternetExplorer.Application);  o.Naviga

 1只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公 布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不对，在安装时就会 出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦Delphi版本升级，此组 件就不能再使用了，当然有的作者给出了几种版本的DCU文件，用户根据需要选择使用。这 样的组件的安装方法是：在Component菜单中，

//Server端 unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, StdCtrls;type  TForm1 = clas

//拷贝端unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Clipbrd, ExtCtrls;type  TForm1 = class(TForm)    Button1: TButton;

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Clipbrd, StdCtrls, Buttons, ExtCtrls;type  TForm1 = class(TForm)    Panel1: TPanel;

 var       Reg: TRegistry;begin  Reg := TRegistry.Create;  try    Reg.RootKey := HKEY_CURRENT_USER;    if Reg.OpenKey(/Software/Microsoft/Windows/CurrentVersion/Run,   True)   then    begin      Reg

procedure TForm1.Button1Click(Sender: TObject);var  I,J : Integer;  TempList : TStringList;  Temp : string;begin  TempList := TStringList.Create;  try  for I := 0 to advStringGrid1.RowCount -1 do  beg

function StopTime: integer; //返回用户没有操作键盘和鼠标事件的时间var  LInput: TLastInputInfo;begin  LInput.cbSize := SizeOf(TLastInputInfo);  GetLastInputInfo(LInput);  Result := (GetTickCount() - LInput.dwTime) div

<br />1.你先放一个cxGrid，设置好View，设置View.DataController连接的DataSource <br />2.激活DataSource连接的DataSet，双击cxGrid，点击Retrieve   Fields，取得所有的Column <br />3.设置View的OptionsView.Footer=True，OptionsView.GroupFooters=gfVisibleWhenExpanded，这是为了把分组小计和总计面板显示出来 <br />4.将“订单号”字段

private    { Private declarations }    HotKeyId1:   Integer;    procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY;procedure TForm1.FormCreate(Sender: TObject);begin  HotKeyId1

使用包，你可以使用如下方法设置：项目选项（菜单project-options-Packages页），在Runtimes packages中勾选Build with runtime packages。这样你就能够使用包来编译了。但不是这里所有的包都是你需要，这里包含了Delphi中安装的所有的包。如果环境改变了，可能你的程序就执行不了，那么你可以在这里调整你所包含的包。在IDE中运行程序，打

type  Tframe1 = class(TFrame)     ...  private    { Private declarations }    procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;  ...procedure Tframe1.CMSh