本文简单的介绍了TAdvStringGrid控件的一些常用的属性事件和方法,主要用于统计数据和设计比较复杂的表格!核心部分:合并单元格的几个函数和过程!
var reg: TRegistry; KeyList: TStringList; intIdx: Integer; Itm: TListItem; s: string;begin try KeyList := TStringList.Create; reg := TRegistry.Create; reg.RootKey := HKEY_LOCA
var Form1: TForm1; filename, s, dir: string; attr, d, t: integer; f: text; cdir: array[0..256] of char;implementation{$R *.dfm}/////////////////////
var s: string;begin if key = #13 then begin memo1.Lines.Clear; s := edit1.Text; memo1.Lines.Add(当前命令 +s+ 返回结果); m+ s
<br />//////////////////////////////////// //// Utf8ToAnsi //// 2010.6.28
const source = 'TPEPatch.7z'; Destination = 'targetf.rar';var FromF, ToF: file of byte; Buffer: array[0..2047] of char; NumRead: integer; Fi
varh:integer;F:TsearchRec;d,t,i:integer;FindFileList:Tstringlist;FileSize:Tstringlist;beginFindFileList:=TstringList.Create; FileSize:=TstringList.Create; d:=findfirst(c:/*.*,
KOL 常用函数函数 2 kol.pas 3 //绝对值函数 4 function Abs( X: Integer ): Integer; 5 //64位加法 6 function Add64( const X, Y: I64 ): Ition AllocMem( Size : Integer ) : Pointe
unit ShortPath;//////////////////////////////////////////////////////// 引用单元原型 //// haiou327 ////
Frm FormMnu MainMenu, PopupMenu, MenuItemLbl Label, DBLabelEdt Edit, Memo, DBEdit, DBMemo, MaskEditRtf RichEditBtn Button (BitBtn, SpeedButton)Chk CheckBox, DBCheckBoxOpt RadioButtonLst ListBoxes (e
try//尝试执行 {SomeCode} except//出错的时候执行, Except有特定的错误类型 {SomeCode} end; try//尝试执行{SomeCode} finally//无论如何都强制执行{SomeCode} end; 例:tryAge:=StrToInt(Edit1.Text);ShowMessage(Format(生于%d年,[
shellabout(application.MainForm.Handle,'52688226所有', '@163.com',application.Icon.Handle);
var i, d: integer; List: TStringlist; Reg: Tregistry; s: string;begin List := TStringList.Create; Reg := Tregistry.Create; Reg.RootK
unit regedit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ImgList, Grids, BaseGrid, us;type T
varsBuf:array[0..Max_path] of char;beginGetSystemDirectory(sBuf,Max_path);showmessage(sBuf);showmessage(copy(sBuf,1,3));end;varsBuf:ats and
//增加项或列(字段)ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columnew1.Columns.Items[1].C
var sBuf: array[1..1024] of byte;begin sBuf[1] := 128; sBuf[2] := 00; sBuf[3] := 00; sBuf[4] := 00; sBuf[5] := 00; sBuf[6] := 126; sBuf[7] := 00; sBuf[
procedure TForm1.FormShow(Sender: TObject);begin form2.ShowModal;end;procedure TForm2.Timer1Timer(Sender: TObject);begin
vars:string;i:integer;ListItem:TlistItem;beginListitem:=listview1.Items.Add;listitem.Caption:=牛年大吉;listitem.SubItems.Add(牛);listitem.subitems.Add(气);listitem.subite
Mouse.CursorPos.X Mouse.CursorPos.Y
PETOOLS_LINK.cmd ::petools扩展目录搜索安装程序 by chenall http://www.chenall.comhttp://www.chenall.com::思路来源:http://
指针用法的例子: 1 var 2 X, Y: Integer; // X and Y 整数类型 3 P: ^Integer; // P
控制台程序的误区 在Delphi中可以创建Console--控制台应用程序。这种类型的程序在Win32文本模式下,或者CUI(文本用户界面)子系统中
1.WIN 9X实现 注销 关机 重启------------------------------------------------------------------------------------------1.--定义常数const EWX_LOGOFF=0; //重新启动计算机
<br />program shutdown;{$APPTYPE CONSOLE}uses windows;var ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] o
=
var getStream, setStream: TFileStream; num, n: Integer; buf: PByte; BufSize, block: Integer;begin if not FileExists(edit1.text) then b
<br />function DeletePath(mDirName: string): Boolean; { 返回删除指定目录是否成功 }<br />var<br /> vSearchRec: TSearchRec;<br /> vPathName: string;
<br /> <br />一、引子:<br />现在的Windows应用程序几乎都使用图标、图片、光标、声音等,我们称它们为资源(Resource)
Delphi ListView基本用法大全<br /><br />//增加项或列(字段)<br />ListView1.Clear;<br />ListView1.Columns.Clear;<br />ListView1.Col
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号