随笔分类 - delphi
摘要：procedure TForm5.Button1Click(Sender: TObject); const w1:Word = 101; var w:Word; begin w := w1 shr 3; ShowMessage(IntToStr(w)); //12 {w1 shr 3 相当与 w1 div 2的3次方} w := w1 shl 3; ShowMessag...
阅读全文
摘要：参数可以分为: 默认参数(传值)、var(传址)、out(输出)、const(常数)四类 {默认参数是传值, 不会被改变} function MyF1(x: Integer): Integer; begin Inc(x); Result := x; end; {var参数是传址, 会被改变} function MyF2(var x: Integer): Integer; begi...
阅读全文
摘要：DisableControls方法是在程序修改或后台有刷新记录的时候切断数据组件，如TTABLE、ADOQUERY等等与组件数据源的联系。如果没有切断，数据源中只要一有数据的改动，尤其是批量改动的话，每一笔的改动都会更新窗口中数据浏览组件的显示，这样会急剧减慢处理过程而且浪费时间。EnableCon
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject); var b: Boolean; s: string; begin b := True; s := BoolToStr(b); ShowMessage(s); {-1} b := False; s := B
阅读全文
摘要：IsIconic()作用是判断窗口是否处于最小化状态（点击了最小化按钮之后）。 对于普通的对话框来说，如果你在if (IsIconic()) 下面加入AfxMessageBox("haha") ，你会发现消息框并不会弹出。 原因是，if (IsIconic()) 这段代码是在OnPaint()函数内
阅读全文
摘要：function Tform1.DownConfigreFile(var errmsg: string; url, name: string): boolean; var MyStream: TMemoryStream; begin Result := true; MyStream := TMemoryStream.Create; try try httpU...
阅读全文
摘要：Private: 私有的，只能自己使用或者是同一单元的子类使用，实例不可使用Protected，保护的，自己和子类均可使用，实例不可访问的Public，公共的，具体实例可以访问和使用Published，发布的，主要是针对元件定义的类型，可以在属性列表中可见，使用同Public
阅读全文
摘要：Abort //激发异常退出，如果在 try 块中，except 和 finally 的程序会执行 Exit //正常退出，如果在 try 块中，except 和 finally 的程序会执行 Halt //非正常结束程序，可有 Integer 参数给操作系统，windows 程序一般使用：Appl
阅读全文
摘要：TTrayIcon 的主要属性: TrayIcon.Icon指定托盘图标, 有几种用法:1、设计时选择;2、把一个 TIcon 对象给它;3、使用当前程序图标: TrayIcon1.Icon := Application.Icon;4、TrayIcon1.SetDefaultIcon; 这也是使用当
阅读全文
摘要：ping-baidu.bat 文件内容 ping www.baidu.com -t
阅读全文
摘要：ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。 有几个API函数都可以实现这些功能，但是在大多数情况下ShellExecute是更多的被使用的，同时它并不是太复杂。下面举例说明它的用法。开始一个新的应用程序
阅读全文
摘要：type TForm1 = class(TForm) idcmpclnt1: TIdIcmpClient; cxbtn1: TcxButton; cxbtn2: TcxButton; pnl1: TPanel; edtHost: TcxTextEdit; cxm1: TcxMemo; cxText_count: TcxTextEdit;...
阅读全文
摘要：function Twms_DataCenter_DataGrail.copyBegin2EndStr(begindex, endindex, source: string): string; //截取两个字符之间的内容 var n, m: Integer; begin n := Pos(begindex, source); m := Pos(endindex, source); ...
阅读全文
摘要：用notepad++打开发现html文件是utf-8格式，所以改成gbk 格式。同时需要修改html文件编码格式。 <head> <meta charset="gb2312"> <title>ECharts</title></head>
阅读全文
摘要：单元开头必须引入以下两个单元 frxBarcod, frxBarcode2D;
阅读全文
摘要：ForceDirectories() ForceDirectories(Dir)是Delphi和bcb中用来创建一个目录的函数。 支持多级目录。编辑本段说明 bool ForceDirectories(AnsiString Dir); 返回：返回创建目录是否成功。 参数：Dir是创建目录路径。如："
阅读全文
摘要：procedure Twmsbasreturndata.explainjson(strjson: string; detailename: string = ''; PlayVoice: Boolean = False); var jo: ISuperObject; tempresult: string; begin if trim(strjson) = '' then begi...
阅读全文
摘要：//要点17: 如果前面的方法要调用后面的方法, 后面的方法需要提前声明 function MyFunB(x: Integer): Integer; forward; {使用 forward 指示字提前声明} function MyFunA(x: Integer): Integer; begin R
阅读全文
摘要：class function TWmsApplicationfunction.IsFileInUse(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; // 如果文件不存在，返回false ...
阅读全文