摘要：MidStr返回指定范围内的字符串。该函数有三个参数。第一个参数为源字符串，第二个参数为起点（下标从1开始），第三个参数为结束点。通过第二、第三个参数则可指定要复制字符串的范围。function MidStr(const AText: string; const AStart, ACount: In 阅读全文

摘要：1. 添加数据： ListView1.ViewStyle:=vsReport; ListView1.Columns.Add; ListView1.Columns[0].Caption:='aaaa'; ListView1.Columns.Add; ListView1.Columns[1].Capti 阅读全文

摘要：1. 进入到bin目录： 键入cd..，一直到出现C:\ 为止 然后cd bin所在路径： 如： C:\cd C:\Program Files\MySQL\MySQL Server 5.7\bin2. 通过账号登录到MySQL数据库： 键入 mysql -hlocalhost -uroot -p 如 阅读全文

摘要：ADO多线程数据库查询通常会出现以下问题：1、CoInitialize 没有调用（CoInitialize was not called）；所以，在使用任何dbGo对象前，必须手 调用CoInitialize和CoUninitialize。调用CoInitialize失败会产生"CoInitiali 阅读全文

摘要：1. 通过iexplore.exe打开:ShellExecute(0, 'open', 'iexplore.exe', PChar('http://www.100xuekao.com'), '', SW_NORMAL);2. 直接打开: ShellExecute(0, 'open', 'http:/ 阅读全文

摘要：循环等待20秒:var dwStart,dwStartAll:DWORD; dwStart:=GetTickCount; bRet:=False; while ( GetTickCount-dwStart )<20*1000 do begin sErr:=''; bRet:=g_dtCls.Chec 阅读全文

摘要：//使用:OpenDialog控件. ldg.Options := ldg.Options + [ofAllowMultiSelect]; ldg.Filter := '作答文件ZF包.zf|*.zf';//一般使用'*.zf|*.zf'; ldg.FilterIndex := 1; if ldg. 阅读全文

摘要：1.TPopupMenu一条横线在Caption输入一个'-'就可以了.2.在Caption输入名字之后加入一个&就可以不显示快捷键,比如： 退出& 这样退出按钮的快捷键就不会显示出来了.动态地创建菜单, 通常我们使用以下的语句 PopupMenu1 := TPopupMenu.Create(Sel 阅读全文

摘要：概述： ^: 指针 @: 取址 #: 十进制符 $: 十六进制符 @:取址运算符; var int:integer; p:^integer; begin new(P); int:=24; p:=@int; dispose(P); end; ^:指针的引用解析操作符; var pint:^intege 阅读全文

摘要：窗体启动执行顺序:FormShowFormPaintFormActivateFormResize关闭窗体过程FormCloseFormDestroy最小化再最大化:FormPaintFormResize未执行FormActivate事件. 阅读全文

摘要：接收方和发送方都要定义参数: Const WM_UpProgress= WM_USER+27; 接收方:定义接收方法 procedure WM_UpProgress(var Msg: TMessage); message WM_USER+27; 方法实现: procedure TfrmToolMai 阅读全文

摘要：procedure TfrmLoginPass.txtStuNoKeyPress(Sender: TObject; var Key: Char);if not (key in ['0'..'9','.',#8,#13]) then key:=#0;//只能输入0到9的数字和退格键,delete键. 阅读全文

摘要：Delphi在编译程序时，会先将源代码编译成汇编代码，可以通过delphi的cpu窗口看到。通过ide可以开启或者关闭，异常时出不出来CPU窗口。但是，不管什么时候，CPU窗口可以通过View/Debug windows/CPU调出。可能大部分人delphi开发人员对汇编都不是很熟悉，所以，这个功能 阅读全文

摘要：说明:1. 属性可以设置为只读,只写,读写.2. 通常要定义一个私有变量,通过属性改变或获取该私有变量值.3. 属性可以设置读写的方法也可以不设置读写的方法. private fis_MK:boolean;//是否模考, true:模考 false:正考 m_ThreadRunning:boolea 阅读全文

摘要：procedure TForm1.Button2Click(Sender: TObject);var a: real; b1: Single; //浮点类型 b2,b3: Currency; //货币类型，精确到小数点后四位begin a := 1 / 9; //直接将 RoundTo 的结果传入， 阅读全文

摘要：procedure TfrmShowScore.writeInfoLog(str:string);var filev:TextFile; //jack for test sfile:string;begin str := FormatDateTime('yyyyMMddhhnnss',now)+'L 阅读全文

摘要：//获取其他的进度，设置当前的总进度。gauDo.Progress:= 20 (80*nDownPosi div 100 ); //jack 0626 30 + ( 20*nDownPosi div 100 ); //nDownPosi：0-100//在自定义过程中使用。每执行一段，设置一个进度。g 阅读全文

摘要：repeat Inc(l_repeatTimes); DM.Log('m_HandPaper.Compresszf', nil); m_Return := m_HandPaper.Compresszf(); //压缩 if (m_Return <> 0) then Synchronize(m_Han 阅读全文

摘要：修改窗体文件名称:1. 首先修改文件名(pas和dfm); 并修改程序里面的unit 名称.2. 然后把需要修改的窗体移除.3. 再把窗体加到工程中. 阅读全文

摘要：1. Assigned: 如果是数据集使用,通过查询为数据集赋值后,只要数据集<>nil,就会返回True,即使数据集isEmpty=true,Assigned也会返回true; 如: Assigned(dataset1);2. integer类型变量: 如果在方法内定义,初始值为随机值.如果在类中 阅读全文