上一页 1 ··· 134 135 136 137 138 139 140 141 142 ··· 196 下一页
摘要: 测试代码文件:--------------------------------------------------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton; Button2: TButton; Butt 阅读全文
posted @ 2013-03-03 11:38 delphi中间件 阅读(1868) 评论(0) 推荐(0) 编辑
摘要: 如用 TArray<Word> 代替 array of Word, 还可以使用 TArray 类提供的算法(就是少了点).--------------------------------------------------------------------------------uses Generics.Collections, Generics.Defaults;{测试 TArray 的 Sort 方法}procedure TForm1.Button1Click(Sender: TObject);var arr: TArray<string>; //同 array 阅读全文
posted @ 2013-03-03 11:35 delphi中间件 阅读(792) 评论(0) 推荐(0) 编辑
摘要: system.zlib单元 封装了zlib 1.2.5system.zip单元内主要就是 TZipFile 类, 最方便使用的是它的类方法:--------------------------------------------------------------------------------TZipFile.ExtractZipFile() //解压 Zip 文件到指定文件夹TZipFile.IsValid() //判断指定文件是否是有效的 Zip 文件TZipFile.ZipDirectoryContents() //压缩指定路径下的所有文件 阅读全文
posted @ 2013-03-03 11:33 delphi中间件 阅读(701) 评论(0) 推荐(0) 编辑
摘要: procedure MyMethod;var i: Integer;begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end;end;procedure TForm1.Button1Click(Sender: TObject);begin TThread.CreateAnonymousThread(MyMethod).Start; end;1、TThread 现在增加了许多 class 方法(直接通过类名调用 阅读全文
posted @ 2013-03-03 11:32 delphi中间件 阅读(1133) 评论(0) 推荐(0) 编辑
摘要: 以后路径相关的处理, 用 IOUtils.TPath 就很方便了.//较常用的方法:TPath.GetTempPath; {获取临时文件夹路径}TPath.GetTempFileName; {获取一个临时文件名}TPath.GetPathRoot(); {提取盘符, 如: c:\}TPath.GetDirectoryName(); {提取路径}TPath.GetFileName(); {提取文件名}TPath.GetExtension(); {提取扩展名}TPath.GetFileNameWithoutExtension(); {提取无扩展名的文件名}TPath.ChangeExtension 阅读全文
posted @ 2013-03-03 11:31 delphi中间件 阅读(2544) 评论(0) 推荐(0) 编辑
摘要: IOUtils 单元主要就是三个结构: TDirectory、TPath、TFile, 很有用; 下面是 TFile 的功能简介.--------------------------------------------------------------------------------TFile.Exists();--------------------------------------------------------------------------------//判断指定的文件是否存在----------------------------------------------- 阅读全文
posted @ 2013-03-03 11:30 delphi中间件 阅读(2455) 评论(1) 推荐(0) 编辑
摘要: TDirectory.CreateDirectory(); {建立新目录}TDirectory.Exists(); {判断文件夹是否存在}TDirectory.IsEmpty(); {判断文件夹是否为空}TDirectory.Copy(); {复制文件夹}TDirectory.Move(); {移动文件夹}TDirectory.Delete(); {删除文件夹, 第二个参数为 True 可删除非空文件夹}TDirectory.GetDirectoryRoot(); {获取目录的根盘符, 如: C:\}TDirectory.GetCurrentDirectory; {获取当前目录}TDirect 阅读全文
posted @ 2013-03-02 22:45 delphi中间件 阅读(2750) 评论(0) 推荐(0) 编辑
摘要: 方法的更多信息是指: 方法类型、返回值、参数等.--------------------------------------------------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Cl 阅读全文
posted @ 2013-03-02 22:44 delphi中间件 阅读(850) 评论(0) 推荐(0) 编辑
摘要: 通过 Rtti 单元的 TRttiContext(是个 record), 可以方便地获取类的方法、属性、字段的列表. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Contro 阅读全文
posted @ 2013-03-02 22:43 delphi中间件 阅读(2147) 评论(0) 推荐(0) 编辑
摘要: 编辑器通过 Rtti 还能够调用一个类的方法, 也能读取或设置其属性值. --------------------------------------------------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TB... 阅读全文
posted @ 2013-03-02 22:42 delphi中间件 阅读(1740) 评论(0) 推荐(0) 编辑
上一页 1 ··· 134 135 136 137 138 139 140 141 142 ··· 196 下一页