随笔分类 - delphi
摘要：单目运算符 (最高优先级) @ 取变量或函数的地址(返回一个指针) not 逻辑取反或按位取反 乘除及按位运算符 * 相乘或集合交集 / 浮点相除 div 整数相除 mod 取模 (整数相除的余数) as 程序运行阶段类型转换 (RTTI运算符) and 逻辑或按位求和 shl 按位左移 shr 按
阅读全文
摘要：记录下，面试中碰到的问题 接口：Interface Delphi中接口的关键字是Interface，但它和Pascal单元中的Interface没有任何联系。 1、抽象类 Delphi中的抽象类只定义行为的类，它规定了由此派生的类必须具备某些行为。但是抽象类不实现这些行为，而必须由其派生类去实现这些
阅读全文
摘要：delphi禁止webbrowser弹出窗口或者脚本错误webbrowser1.silent:=true; //屏蔽脚本错误procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cance
阅读全文
摘要：function TFmain.RunWait(FileName: string; Visibility: Integer): THandle;var zAppName: array[0..512] of Char; zCurDir: array[0..255] of Char; WorkDir:
阅读全文
摘要：function TFmain.GetWeek(xday:Integer): string;begin case SysUtils.DayOfWeek(now+xday) of 1: Result := '星期天'; 2: Result := '星期一'; 3: Result := '星期二'; 4
阅读全文
摘要：PostMessage只把消息放入队列，不管其他程序是否处理都返回，然后继续执行，这是个异步消息投放函数。而SendMessage必须等待其他程序处理消息完了之后才返回，继续执行，这是个同步消息投放函数。而且，PostMessage的返回值表示PostMessage函数执行是否正确；而SendMes
阅读全文
摘要：type Tmythread = class(TThread) protected frxrprttmp: TfrxReport; procedure Execute; override; procedure testPrintThread(); public constructor Create(
阅读全文
摘要：unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, qrbtree, qworker, SyncObjs, ExtC
阅读全文
摘要：unit Unit_main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TypInfo; type TForm_main
阅读全文
摘要：Delphi 2010 新增功能:IOUtils单元:TPath的方法与属性 以后路径相关的处理, 用 IOUtils.TPath 就很方便了. //较常用的方法: TPath.GetTempPath; {获取临时文件夹路径} TPath.GetTempFileName; {获取一个临时文件名} T
阅读全文
摘要：Dunit的官方Web Site 是https://sourceforge.net/projects/dunit/。 Dunit的主要文件，src下包括的文件表： 文件名称 说明 TestFramework.pas 框架本身 TestExtensions.pas 可用来扩充测试案例的Decorato
阅读全文
摘要：RoundTo函数是在math单元 要保留3位小数，当第四位是5时，会有以下情况发生： 1. Volume := RoundTo(1.2325,-3); //--小数点第三位是奇数时就往前进一位，偶数就不会,这个得结果： Volume := 1.232; 2. Volume := RoundTo(1
阅读全文
摘要：//添加数据和对象到下拉框 procedure TForm1.Button1Click(Sender: TObject);var s:string;begin ComboBox1.Items.Clear; s:= '1001'; //ComboBox1.Items.Add('1'); ComboBo
阅读全文
摘要：Windows目录对话框是一个标准的WindowsUI控件，其可以列出一个目录列表，并且可以显示新增按钮。由于Delphi中并没有提供对于该控件的封装，所以打开它是个问题。网上有多种方法，试举几例： 1、使用Win31目录下的DriverList、DirectoryList、FileList和Fil
阅读全文
摘要：PostMessage(Self.Handle, WM_KEYDOWN, VK_RETURN, 0);
阅读全文
摘要：inc(integer)，表示加1，比如i := 1;inc(i);结果：i=2inc(integer,integer)，表示加n,比如i:=1; inc(i,5);结果：i=6Dec是递减函数，比如i:=10;dec(5);结果：i=5
阅读全文
摘要：try idsmtp2.Username := 'abc123@163.com'; //设置登陆帐号 idsmtp2.Password := 'abc123';// 设置登陆密码 idsmtp2.Host:='smtp.163.com';// 设置SMTP地址 if idsmtp2.Connecte
阅读全文
摘要：在函数中如果数组的个数不定，可以使用开放数组参数 实参可以接受静态数组和动态数组 procedure p1(a:array of Byte); begin ShowMessage( IntToHex( Integer(@a),2)); ShowMessage(IntToStr(a[0])); end
阅读全文
摘要：Delphi、C#之父Anders Hejlsberg 近日首次访华，并在10月24日和27日参加了两场见面会，分享了他目前领导开发的TypeScript项目，并与国内前端开发者近距离交流。本文就为读者描述一下近距离接触大师的印象，以及Anders对TypeScript的设计理念和想法。 Ander
阅读全文
摘要：ExpandFileName(Application.ExeName);//返回文件的全路径(含驱动器、路径) D:\delphi程序\20170427\Win32\Debug\MyTestProject.exeExtractFileExt(Application.ExeName); //从文件名中
阅读全文