摘要：一、开使你的第一个DLL专案 1.File->Close all->File->New﹝DLL﹞ 代码://自动产生Code如下 library Project2; //这有段废话。 uses SysUtils, Classes; {$R *.RES} begin end.2.加个Func进来： 代码:library Project2; uses SysUtils, Classes; Function MyMax ( X , Y : integer ) : integer ; stdcall ; begin if X > Y then Result := X else 阅读全文

摘要：1,定义一个线程类与定义一个普通类没什么区别,只是把主类设为TTheadTThread类定义在class单元中---------------------------------------2,一个自定义线程类必须定义Execute过程这个过程为Override,需要线程去做的事情全部写在这个方法里---------------------------------------------例如:type TMyThread = class(TThread) private protected procedure Execute;override; publicend;--------------- 阅读全文

摘要：procedure TForm1.Edit1Exit(Sender: TObject);var theDate:string; reg : TperlRegex;begin theDate := Edit1.Text; reg := TPerlRegEx.Create(self); reg.Subject := theDate; reg.RegEx := '^((((19|20)\d{2})-(0... 阅读全文

摘要：Ctrl+O+U(切换选定代码的大小写)----------------------------Ctrl+K+E(选定代码转为小写)------------------------------ Ctrl+K+F(选定代码转为大写)------------------------------如何自定义方法-------------------varMethod:TMethod;Evt:TNotify... 阅读全文

摘要：下面是一个在14个数据产生10个不重复的随机数-----------------------------------------------procedure TForm1.Button1Click(Sender: TObject);var a:array[1..14]of integer;//14个数 b:array[1..10]of integer;//结果 c:array[1..14]of ... 阅读全文

摘要：TList不仅可以于字串,也可用于实数,而TStringList仅用于String用法也比较简单 --------------------------------------------------------------------------- procedure TForm1.Button6Click(Sender: TObject); var a:TStringList; begin ... 阅读全文

摘要：这里主要用到指针 ------------------- //这是比较函数 function CompareNames(Item1, Item2: Pointer): Integer; begin Result := CompareText(string(Item1^),string(Item2^)); //地址指针转成String后再比 end; procedure TForm1.Bu... 阅读全文

摘要：注意:同样引用 Contnrs -------------------------- procedure TForm1.Button3Click(Sender: TObject); var a:TQueue; s1,s2:string; p:^string; begin a:=TQueue.Create; s1:='Hello'; s2:='Word'; a... 阅读全文

摘要：要引用:Contnrs ----------------------- procedure TForm1.Button1Click(Sender: TObject); var a:TStack; s1,s2:string; b:^string; begin s1:='Hello'; s2:='Word'; a:=TStack.Create; ... 阅读全文

摘要：如:加上120分钟,得到一个新的时间值 ShowMessage(DateTimeToStr(Now+120/(60*24))); 60*24表示一天中,有24个小时,每个小时有60分钟 必要时可以引用DateUtils ------------------------------------------------------ DoubleCat 阅读全文

摘要：Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用： 首先看它的声明： function Format(const Format: string; const Args: array of const): string; overload; 事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的... 阅读全文

摘要：Delphi 2006 (For In語句) 詳解 在Delphi 2005就已經加入了For element in collection do statement... 阅读全文

摘要：安全删除一个函数 找到方法实现,选择方法名->鼠标右键->Refactoring->Safe Delete 注意:方法无使用的情况下可以这样做,否则提示不可删除 2,把一条语句转成方法 选择一条语句->ReFactor->Extract Method->(Shift+Ctrl+V)在写控件方法代码时,发现有多处控件要调用同事方法时,很好用, 3,直接把一个值申明为局部变量 直接打入... 阅读全文

摘要：Delphi函数大全(Double Neaten) 首部 function Languages: TLanguages; $[SysUtils.pas 功能 返回系统语言对象 说明 通过此函数可以得到系统的语言环境 参考 type SysUtils.TLanguages 例子 ///////Begin Languages procedure TForm1.Button1Click... 阅读全文

摘要：1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操... 阅读全文

摘要：----------- uses GIFImg; procedure TForm1.FormCreate(Sender: TObject); begin // 先在窗体上放一个 TImage 组件：Image1； Image1.Picture.LoadFromFile('C:\Example.gif'); // AnimationSpeed 设定动画速度，值越大，速度越快； TGI... 阅读全文

摘要：----------------------- 1, EXP(LN(M)*N ----------------------- 2, Uses Math Power(M,n) 阅读全文

摘要：获取方法: 运行: tdump.exe C:\windows\system32\gdiplus.dll c:\temp\gdiplus.txt 阅读全文

摘要：为什么有的end后面有分号(end;),有的是点号(end.),有的什么都没有 ----------------------------------------------------------------- 1,Begin 与 End并不配对,不是所有的End前面都有一个Begin 2,If...else中 else前面的end不加何任符号,没有end的情况与也不加任何符号,表过此叛断还没... 阅读全文

摘要：Delphi的单引号,真是会把人搞晕的一个符号 ---------------------------------------- Delphi中不使用双引号,单引号必须配对 -------------------------- ①引号内无字串的情况下 ShowMessage('');->空字串 ShowMessage(' ' ');->这是错的 ShowMessage('''');->... 阅读全文