Delphi 的运算符列表 分类 运算符 操作 操作数 结果类型 范例 算术运算符 + 加 整数，实数 整数，实数 X + Y - 减 整数，实数 整数，实数 Result - 1 * 乘 整数，实数 整数，实数 P * InterestRate / 实数除 整数，实数 实数 X / 2 div 整数除 整数 整数 Total div UnitSize mod 取模 整数 整数 Y mod 6 +

function ThreadFunc(P:Pointer):LongInt;stdcall;var i:Integer; dc:HDC; s:string;begin dc := GetDC(Form2.Handle); for i := 0 to 10000 do begin s := IntToStr(i); TextOut(dc,10,10,PChar(s),Length(s)); end

delphi Format格式化函数 Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用： 首先看它的声明： function Format(const Format: string; const Args: array of const): string; overload; 事实上Format方法有两个种形式，另

Delphi 数据类型列表 分类 范围 字节 备注 简单类型 序数 整数 Integer -2147483648 .. 2147483647 4 有符号32位 Cardinal 0 .. 4294967295 4 无符号32位 Shortint -128 .. 127 1 有符号8位 Smallint -32768 .. 32767 2 有符号16位 Longint -2147483648 ..

此函数可以用variant返回多个字段的值 function TDataSet.GetFieldValue(const FieldName: string): Variant; var   I: Integer;   Fields: TList; begin   if Pos(';', FieldName) <> 0 then   begin     Fields := TList.Create;

var FLoadsteam: TFileStream; FcopySteam: TFileStream; buffer: array[0..1023] of char; begin FLoadsteam := TFileStream.Create('F:\QQ\034\Wrox - Professional C# (C#高级编程).pdf',fmOpenRead); Fco

floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。 trunc 和 round 是 system unit 里的函数，缺省就可以用。 floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123 trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123 cei

http://blog.csdn.net/raptor/article/details/4868 （ 之一） Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部，我写此文的目的在于对此作一个补充。

 Ctrl+PageUp      将光标移至本屏的第一行，屏幕不滚动。  Ctrl+PageDown    将光标移至本屏的最后一行，屏幕不滚动。  Ctrl+↓          向下滚动屏幕，光标跟随滚动不出本屏。  Ctrl+↑          向上滚动屏幕，光标跟随滚动不出本屏。  Ctrl+Shift+NUM   在光标行设置最多九个临时标志号，对临时切换非常有用。         

当我们制作好一个课件或程序的时候就会想给它做漂亮的安装程序，特别是用AUTHORWARE制作的课件，由于必须把XTRAS目录下相关的文件与可执行文件一起提供，这时我们就需要给课件制作安装程序。而且制作的安装程序应该能够进行反安装、能在桌面放置快捷图标、能在程序组创建组，最好还能设置安装后是否启动程序(有点贪心哦)而且安装程序的制作还不要太复杂了：)。inno setup软件就可以满足您的要求。 一

最近因为工作需要，需要在不同的开发环境中应用Protobuf，特此，我专门研究了一下。为了防止自己忘记这些事情，现在记录在这里！需要的朋友可以借鉴一些，因为这些东西在GOOGLE和百度上搜索起来真的很费劲！ 一、首先说DELPHI的。 因为DELPHI现在用的人不多了，所以找这个东西真心不好找！还好，加了几个QQ群，有用过的朋友告诉了我！ 具体步骤如下： 1、下载DELPHI使用Protobuf需

//TStringList 常用方法与属性: var   List: TStringList;   i: Integer; begin   List := TStringList.Create;   List.Add('Strings1');           {添加}   List.Add('Strings2');   List.Exchange(0,1);             {置换}

最近帮朋友做一个软件，其中要自动化某网页中的操作，最简的操作是调用自己写的代码。 代码如下： procedure TForm1.Button2Click(Sender: TObject); var   i:integer;   h:IHTMLHeaderElement;   o:OleVariant; begin   o:=webbrowser1.OleObject.document.create

http://www.cnblogs.com/ChinaEHR/p/3373364.html 我觉得Delphi最强大的的功能之一就是开发数据库三层应用的DataSnap，在Android上的实现，首先是完成服务器的设计： （1）利用向导完成DataSnap服务器的框架，如下图： 由于是实验，所以选择VCL程序，如果是实际应用，建议Service程序 我习惯使用TCP/IP作为通讯协议，简单且速度

分类 快捷键 解释 备注 组 件 设 计 类 Escape 选择当前组件容器   Shift + Click 选择多个组件；选择窗体   Tab 选择下一个组件   Shift + Tab 选择上一个组件   方向键 选择此方向的下一个组件   Ctrl + 方向键 将所选组件的位置移动 1 个像素   Shift + 方向键 将所选组件的大小改变 1 个像素   Ctrl + Shift + 方

自xe系列以来。delphi生成的可执行文件都比较大。动辄10M以上。其中主要是包含了调试信息。发布后，即可删除。这样可大大减小可执行文件的大小。方法：Project->Options-> Delphi Compiler -> Linking -> Debug information， 

Delphi Language Coding Standards Document Introduction General Source Code Formatting Rules Indentation  Margins  Comments  Conditional Defines  Begin..End Pair Object Pascal Parenthesis  Reserved Wor

       实现的方法有很多，一般都是使用Windows API函数遍历窗口，查找指定标题的窗口，然后从该窗口查找确定按钮，向该按钮发送鼠标消息进行模拟点击。由于IE8由Alert弹出的网页对话框的标题是“来自网页的消息”，而IE6由Alert弹出的网页对话框的标题是“Microsoft Internet Explorer”，所以本文没有按查找窗口标题方法获取窗口句柄。注意到不管IE哪个版本，I

当TWebBrowser控件访问的 Web 页上的脚本调用window.close方法时，TWebBrowser控件可能会在窗体中消失。我们的程序应该对此作出反应，否则再次访问TWebBrowser控件将引发异常。当TWebBrowser控件销毁前会向其父窗口（即我们的程序窗体）发送WM_PARENTNOTIFY消息，消息的wParam参数的低字部分为：WM_DESTROY，lParam参数为TW

procedure  TForm1.Button1Click(Sender: TObject); var   ShellWindow: IShellWindows;   i: Integer;   spDisp: IDispatch;   IE1: IWebBrowser2; begin   ShellWindow := CoShellWindows.Create;   for i:=0 to S

主要用到的是MSAA(Microsoft Active Accessibility) 函数：ObjectFromLResult，该函数在动态链接库 oleacc.dll 中定义。 uses SHDocVw, MsHtml, ActiveX; type   TObjectFromLResult = function(LRESULT: lResult; const IID: TIID; WPARAM:

主要使用的是Delphi自带的TIdhttp控件。 一、界面设置 在窗体上放置两个TEdit控件，一个用于输入要下载的文件URL，一个用于输入要保存到本地的文件路径；放置两个TLabel控件，一个显示文件总大小，一个显示当前已下载大小；放置一个按钮TButton，一个TIdhttp控件（在Indy Clients面板）和一个TIdAntiFreeze控件（放置该控件可避免下载过程中程序无响应，在I

这是一个在窗体标题栏添加自定义按钮的组件（TTitleBarButton）开发实例，标题栏按钮组件TTitleBarButton以TComponent为直接继承对象，它是一个可以在窗体标题栏上显示按钮的组件，像最大化、最小化和关闭按钮等。 1、首先确定组件的属性。 属性是组件的重要组成部分，它相当于组件的门面，因为一旦一个组件被置于窗体中时，用户必然想到去设置组件的各种属性，编写各种事件的处理过程

这两个问题的实现原理其实是差不多的，所以放在一起介绍，单元MSHtml封装了我们需要的功能。 首先，新建一个DELPHI工程，在USES部分添加MSHtml单元的引用。 然后，在窗体上放置一个TWebBrowser控件和四个按钮。 最后，编写四个按钮的响应代码： 1. 自动提交网页表单 procedure TForm1.Button1Click(Sender: TObject); begin  

１.　获取网页中的静态图片 　　网页中的静态图片加载后会保存在IE缓存区内，所以只要获取图片URL在IE缓存区中对应的本地文件名，就可以使用Win32API函数：CopyFile拷贝到指定的文件名就可以了，获取URL对应本地文件名的函数如下： uses WinInet  function GetLocalFileNameFromIECache(url:string; var LocalFileNa

修改安装过程中的图片 一般编译之后，安装过程中出现在左边图片是是下图这个样子的： 其实也可以修改它，只需要在setup段中作一点稍微的修改，加一行代码即可： [setup] AppName=Test AppVerName=TEST DefaultDirName="E:\TEST" AppVersion=1.0 WizardImageFile=dh.bmp [files] Source: "F:\d

Setup段中的compression指定了采用的压缩方式，较高的压缩率需要较多的时间或者需要更大的内存空间，可用的值如下： zip zip/1到zip/9 bzip bzip/1 到bzip/9 lzma lzma/fast lzma/normal lzma/max lzma/ultra lzma/ultra64 lzma2 lzma2/fast lzma2/normal lzma2/max l

Icons这一可选段定义所有创建在开始菜单和\或其它位置 (比如桌面) 的快捷方式。一个例子如下： [setup] ;全局设置，本段必须 AppName=Test AppVerName=TEST DefaultDirName="E:\TEST" AppVersion=1.0 [files] Source: "F:\desktop\ipmsg.exe"; DestDir: "{app}" [icon

这个实现起来很简单，就是在[files]段中的某个预先作为readme的文件后面添加标志位isreadme： [setup] ;全局设置，本段必须 AppName=Test AppVerName=TEST DefaultDirName="E:\TEST" AppVersion=1.0 [files] Source: "F:\desktop\test\ipmsg.exe"; DestDir: "{a

创建文件夹可以使用[dirs]段实现，代码如下： [setup] ;全局设置，本段必须 AppName=Test AppVerName=TEST DefaultDirName="E:\TEST" AppVersion=1.0 [files] Source: "F:\desktop\test\ipmsg.exe"; DestDir: "{app}"; Source: "F:\desktop\test