一刀日记

 unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,comobj, OleServer,  ExcelXP;type  TF

Delphi制作DLL 一 Dll的制作一般步骤二 参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理]四 全局变量的使用五 调用静态载入六 调用动态载入七 在DLL建立一个Tform八 在DLL中建立一个TMDIChildform一 Dll的制作一般分为以下几步：1 在一个DLL工程里写一个过程或函数2 写一个Exports关键字，

Uses TypInfo;//定义枚举类型typeTDayofWeek=(Monday,Tuesday,Wednesday,Thursday,FriDay,Saturday,Sunday);//由值转换为字符串GetEnumName(TypeInfo(TDayofWeek),Ord(Monday);//结果应该是字符串'Monday';//由字符串得到值GetEnumValue

Uses TypInfo;procedure DisableThem(Comps: array of TComponent);var Loop: Integer; PropInfo: PPropInfo;begin for Loop := Low(Comps) to High(Comps) do begin { Get info record for Enabl

最近遇到了问题，就是在form关闭时，需要判断一下是以哪种方式打开的然后分别处理，所已就看了一下ShowModal方法的源码，我截取了一段核心的 Show; try SendMessage(Handle, CM_ACTIVATE, 0, 0); ModalResult := 0; repeat Application.Han

我在MDI 子窗体有个TabControl控件（如PageControl）， 当按下Ctrl+Tab 或 Ctrl+Shift+Tab 组合键时，应用程序切换到了下一个MDI子窗口，而不是改变TabControl控件的活动页，我怎样才能强制MDI子窗体传递 Ctrl+Tab 组合键到 TabControl 控件那？答案：   这实际上是API层面的冲突，在MDI程序中，消息处理每次

Delphi xe3 可以， delphi 7 不可以 ，其他版本没测进入 Project Options - Build Events ， 然后在 post-build event 下的command输入以下命令Move "$(OUTPUTDIR)$(OUTPUTFILENAME)" "$(OUTPUTDIR)$(OUTPUTNAME)_NEW$(OUTPUTEXT)"参

procedure FixTabOrder(const Parent: TWinControl) ; var ctl, L: Integer; List: TList; begin List := TList.Create; try for ctl := 0 to Parent.ControlCount - 1 do

...var f: TextFile;begin AssignFile(f, 'test.txt'); Rewrite(f); write(f, #$EF+#$BB+#$BF); // UTF-8 BOM，关键就是写入这个UTF-8的BOM, BOM 是 Bype Order Mark 的缩写。 writeln(f, UTF8Encode('中文')); CloseF

function ReadVersionInfo:string;type Translate=record wLanguage:WORD; wCodePage:WORD; end; lpTranslate=^Translate;var AppFileName,RequestInfo:string; VersionInfoSize,varDummy

当系统时间改变时，如果你要做出反应，你可以处理WM_TimeChange windows 消息以下是例子代码原文：~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~If you need to re

为了方便高效编写代码，delphi xe2 IDE 中有很多快捷操作，有的也许在之前的版本中就有。1. SyncEdit: 在code editor  同时编译相同标识符。      1). 选中一段包含相同标识符的代码；  2). 点击SyncEdit 出现在左边的模式图标     3)， 修改第一个标示符，其它的也会随之改变，如果有多组相同的标示符，按tab键切换2

转载自：http://www.cnblogs.com/jdmei520/archive/2009/06/17/1505053.htmlWebservice技术的出现将各种开发技术和语言完全的融合了，下面就这种融合在C#和delphi之间的交互做一次全面的体现1.使用C#创建一个Webservice服务。 使用vs2005的模板创建C#的webservice非常容易。原文件如下: [WebS

<br />普通的邮件发送服务器直接设置<br /> <br />IdSMTP1.Host := smtp服务<br />IdSMTP1.Port：=端口，默认25<br />IdSMTP1.AuthenticationType := atLogin; //保证登录模式为Login<br />IdSMTP1.Username := 用户名<br />IdSMTP1.Password := 密码<br />最后idSMTP.Connect(),  <br />      IdSMTP1.Authenticat

<br />声明： arrayname: Arrary of DataType<br /> <br />分配空间：SetLenght(arrayname, array_Lenght);<br /> <br />访问：arrayname[i]<br /> <br />遍历：for i:=Low(arrayname) to High(arrayname) do<br />             arrayname[i]<br /> <br />数组长度： Lenght(arrayname)

<br />使用DBGridEh自动过滤实现方法：<br />1.所用到的控件（以ADO为列）：ADOQuery，DataSetDriverEh（ehlib），MemTableEh(ehlib),DataSource,DBGridEh<br />2.关联设置：DataSetDriverEh.ProviderDataSet:=ADOQuery;  <br />                 MemTableEh.DataDriver:=DataSetDriverEh;  <br />            

今天去书店看书，发现了这个技巧，比起我以前用代码实现方便多了；    该动画效果就是用windows api 函数 :function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): BOOL; stdcal

.ini 文件是基于文本类型的格式文件，用于存储程序初始化和配置数据。    .ini文件是有段（Sections）和键（key）组成的，每个文件可以有 n个段(每个段有方括号括起来)，每个段可以有m个键，大致格式如下：    [secontion]     KeyN

获取本机ip地址，其实方法有很多了，现在用windows api 在delphi下实现如下；1. 在uses 里引用 winsock 单元。2. 源码如下：  function GetLocalIP:string;type TaPInAddr =

日期：2004-11-10 人气： 出处：优快云作者: kobi链接：http://www.7880.com/Info/Article-37a721a0.html- Delphi是一款强大的编程工具，她的优点不仅仅是提供了一个非常强大的代码编译器，Del

注：已翻译的都是测试过的命令，未翻译的是不能在我本机实现的。 CTRL+J - Invoke code templates(请求代码模板)  CTRL+T - Delete current word（删除当前单词）  CTRL+E - Incrementa

1. C# 调用 Delphi DLL  很多地方你都会看到，在.net 中用非托管方式调用delphi DLL, 以下就是语法， 注意DLL 的路径需要绝对路径，如果你把dll 放到c#项目的bin 下，就可以直接用文件名了  另外注意大小写（我没有测试过大小写不一样的情况）， 建议在delphi 中声明方法的参数和返回值时用integer 或 pchar, 可以对应到C# 的 int