摘要:
测试代码文件:--------------------------------------------------------------------------------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 阅读全文
摘要:
如用 TArray<Word> 代替 array of Word, 还可以使用 TArray 类提供的算法(就是少了点).--------------------------------------------------------------------------------uses Generics.Collections, Generics.Defaults;{测试 TArray 的 Sort 方法}procedure TForm1.Button1Click(Sender: TObject);var arr: TArray<string>; //同 array 阅读全文
摘要:
system.zlib单元 封装了zlib 1.2.5system.zip单元内主要就是 TZipFile 类, 最方便使用的是它的类方法:--------------------------------------------------------------------------------TZipFile.ExtractZipFile() //解压 Zip 文件到指定文件夹TZipFile.IsValid() //判断指定文件是否是有效的 Zip 文件TZipFile.ZipDirectoryContents() //压缩指定路径下的所有文件 阅读全文
摘要:
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 方法(直接通过类名调用 阅读全文
摘要:
以后路径相关的处理, 用 IOUtils.TPath 就很方便了.//较常用的方法:TPath.GetTempPath; {获取临时文件夹路径}TPath.GetTempFileName; {获取一个临时文件名}TPath.GetPathRoot(); {提取盘符, 如: c:\}TPath.GetDirectoryName(); {提取路径}TPath.GetFileName(); {提取文件名}TPath.GetExtension(); {提取扩展名}TPath.GetFileNameWithoutExtension(); {提取无扩展名的文件名}TPath.ChangeExtension 阅读全文
摘要:
IOUtils 单元主要就是三个结构: TDirectory、TPath、TFile, 很有用; 下面是 TFile 的功能简介.--------------------------------------------------------------------------------TFile.Exists();--------------------------------------------------------------------------------//判断指定的文件是否存在----------------------------------------------- 阅读全文