2009-XE4 新功能 - 随笔分类 - 万一

其它 Helper

摘要：TByteHelperTShortIntHelperTSmallIntHelperTWordHelperTCardinalHelperTIntegerHelperTInt64HelperTUInt64HelperTNativeIntHelperTNativeUIntHelper// 它们定义在 System.SysUtils, 功能基本一样, 常用的有:var I: Integer; S: string;begin I := I.MaxValue; // 2147483647 I := I.MinValue; // -2147483648 I := I.Size; ... 阅读全文

posted @ 2013-06-15 22:38 万一阅读(4116) 评论(6) 推荐(0) 编辑

测试 System.SysUtils.TStringHelper

摘要：大小写转换:function ToLower: string;function ToLower(LocaleID: TLocaleID): string;function ToLowerInvariant: string;function ToUpper: string;function ToUpper(LocaleID: TLocaleID): string;function ToUpperInvariant: string;class function LowerCase(const S: string): string;class function LowerCase(const S: 阅读全文

posted @ 2013-06-14 22:48 万一阅读(7640) 评论(4) 推荐(2) 编辑

善用泛型数组

摘要：用了一周的时间解决了一个难题; 同时第一次真正开始使用泛型数组, 感觉太好了.如用 TArray<Word> 代替 array of Word, 还可以使用 TArray 类提供的算法(就是少了点).uses Generics.Collections, Generics.Defaults;{测试 TArray 的 Sort 方法}procedure TForm1.Button1Click(Sender: TObject);var arr: TArray<string>; //同 array of string s: string;begin SetLength(arr, 阅读全文

posted @ 2011-05-27 18:38 万一阅读(11811) 评论(16) 推荐(2) 编辑

现在, Delphi 的多线程已经非常易用了!

摘要：先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...}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 MyMethod;end;修改为多线程(只阅读全文

posted @ 2011-05-18 13:27 万一阅读(76495) 评论(41) 推荐(4) 编辑

一句话复制整个文件夹(当然包括嵌套文件夹) - 回复 "张哆哆" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2009/10/16/1584660.html#1742606使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory.Copy 函数:uses IOUtils;procedure TForm1.Button1Click(Sender: TObject);const SourceDir =... 阅读全文

posted @ 2010-01-08 12:24 万一阅读(10427) 评论(18) 推荐(0) 编辑

几个和当前路径相关的新函数

摘要：偶然从 SysUtils 里发现了几个路径相关的函数, 以前没见过, 可能是 2010 新增的:GetLocaleDirectory();GetLocaleFile();LocaleDirectoryExists();LocaleFileExists();应用测试:uses IOUtils;procedure TForm1.FormCreate(Sender: TObject);var p,f:... 阅读全文

posted @ 2009-11-02 01:00 万一阅读(6736) 评论(2) 推荐(1) 编辑

Delphi 2010 新增功能之: 手势编程[5] - 关于自定义手势

摘要：添加 TGestureManager 后, 双击其图标即可进入自定义手势编辑;编辑框中, Sensitivity 用来调整手势响应的敏感度; 取消 Unidirectional 的勾选后反向手势也可识别; 其他都一目了然.一个或一组手势设计可以保存为一个 dgf 文件.通过控件属性中的 Touch - Gestures 旁边的小按钮可查看、选择或再编辑手势.通过和 TGestureManager... 阅读全文

posted @ 2009-10-21 13:11 万一阅读(5504) 评论(1) 推荐(0) 编辑

Delphi 2010 新增功能之: 手势编程[4] - 关于 OnGesture 事件过程的参数

摘要：OnGesture 事件中的 const EventInfo: TGestureEventInfo; 参数主要用于识别手势信息; 前面用过 EventInfo.GestureID, 还有 EventInfo.Location 给出了手势动作的起点坐标, 测试代码:procedure TForm1.FormGesture(Sender: TObject; const EventInfo: TGes... 阅读全文

posted @ 2009-10-21 11:49 万一阅读(5795) 评论(0) 推荐(0) 编辑

Delphi 2010 新增功能之: 手势编程[3] - 直接给某个手势指定动作

摘要：除了通过 OnGesture 事件识别手势, 还可以直接个某个手势指定动作.这需要用到: TActionList 或 TActionManager; 本例用了 TActionList.操作步骤:1、给窗体添加并关联 TGestureManager, 还要添加 TActionList;2、给动作关联 Action:3、给 Action 写代码.代码文件:unit Unit1;interfaceuse... 阅读全文

posted @ 2009-10-21 11:20 万一阅读(4384) 评论(0) 推荐(0) 编辑

Delphi 2010 新增功能之: 手势编程[2] - 通过 OnGesture 识别手势

摘要：本例尝试在 OnGesture 事件中响应 sgLeft、sgRight 手势; 操作步骤:1、加 TGestureManager 控件如窗体: GestureManager1;2、设置窗体属性 Touch.GestureManager := GestureManager1; 3、添加窗体的 OnCreate 事件, 写: Touch.StandardGestures := [sgLeft, sg... 阅读全文

posted @ 2009-10-21 11:02 万一阅读(5024) 评论(0) 推荐(1) 编辑

Delphi 2010 新增功能之: 手势编程[1] - 初识 TGestureManager

摘要：Delphi 2010 最抢眼的新功能可能就是支持"触摸屏"了, 它包括一个可触控的软键盘和识别不同的触屏手势.因为手势同时支持鼠标, 所以没有触摸屏的我也可以尝试一下其大多数的功能.首次尝试的步骤:1、加 TGestureManager 控件如窗体: GestureManager1;2、设置窗体属性 Touch.GestureManager := GestureManager1; {下面程序... 阅读全文

posted @ 2009-10-21 09:32 万一阅读(9093) 评论(0) 推荐(0) 编辑

Delphi 2010 新增功能之: TWICImage 类[4] - 图像的修剪

摘要：虽然不用 TWICImage 也可以方便实现图像的修剪, 但这是 TWICImage 的方式.测试代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ... 阅读全文

posted @ 2009-10-20 14:32 万一阅读(5413) 评论(9) 推荐(1) 编辑

Delphi 2010 新增功能之: TWICImage 类[3] - 图像的比例变换

摘要：TWICImage 的 Width、Height 属性, 可以读取但不能赋值. 调整 TWICImage 的大小、比例, 可以通过 IWICBitmapScaler 接口.//IWICBitmapScaler.Initialize 函数有四种比例变换的算法:WICBitmapInterpolationModeNearestNeighbor = 0;WICBitmapInterpolationMod... 阅读全文

posted @ 2009-10-20 14:19 万一阅读(4775) 评论(2) 推荐(0) 编辑

Delphi 2010 新增功能之: TWICImage 类[2] - 图像的旋转变换

摘要：TWICImage 的大多功能都非常容易使用, 它最强大的功能是 ImagingFactory: IWICImagingFactory 属性, 这是个类工厂的接口.所谓类工厂是 COM 里的概念, COM 通过类工厂可以自己实例化一些类, 实例化后我们只管使用就是.通过 TWICImage.ImagingFactory 获取类工厂后, 再调用 CreateBitmapFlipRotator 建立旋... 阅读全文

posted @ 2009-10-20 13:35 万一阅读(5958) 评论(6) 推荐(0) 编辑

Delphi 2010 新增功能之: TWICImage 类[1] - 方便的图像格式转换

摘要：Graphics 单元新增了 TWICImage 类, 该类的功能源于新增的 Wincodec.pas 单元.WIC(Windows Imaging Component) 是 Windows 为 Vista 和 WPF 提供的用于图像编码、解码的 COM 组件, 但在 XP 下也能使用它.WIC 支持的图像有 BMP、PNG、ICO、JPEG、GIF、TIFF、HDP(HDP 是微软随 Vista... 阅读全文

posted @ 2009-10-19 23:55 万一阅读(9098) 评论(15) 推荐(1) 编辑

Delphi 2010 新增功能之: IOUtils 单元(7): TFile 结构的功能

摘要：IOUtils 单元主要就是三个结构: TDirectory、TPath、TFile, 很有用; 下面是 TFile 的功能简介.TFile.Exists();//判断指定的文件是否存在TFile.Copy();//复制文件var source,dest: string;begin TFile.Copy(source, dest); {不允许覆盖同名的文件} TFile.Copy(sourc... 阅读全文

posted @ 2009-10-18 22:19 万一阅读(11538) 评论(12) 推荐(0) 编辑

Delphi 2010 新增功能之: IOUtils 单元(6): TPath(结构体) 的方法与属性

摘要：以后路径相关的处理, 用 IOUtils.TPath 就很方便了.//较常用的方法:TPath.GetTempPath; {获取临时文件夹路径}TPath.GetTempFileName; {获取一个临时文件名}TPath.GetPathRoot(); {提取盘符, 如: c:\}TPath.GetDirectoryName(); {提取路径}TPath.GetFileName(); {提取文件名... 阅读全文

posted @ 2009-10-17 20:48 万一阅读(8986) 评论(4) 推荐(0) 编辑

Delphi 2010 新增功能之: IOUtils 单元(5): TDirectory 的其他功能

摘要：TDirectory.CreateDirectory(); {建立新目录}TDirectory.Exists(); {判断文件夹是否存在}TDirectory.IsEmpty(); {判断文件夹是否为空}TDirectory.Copy(); {复制文件夹}TDirectory.Move(); {移动文件夹}TDirectory.Delete(); {删除文件夹, 第二个参数为 True 可删除非空... 阅读全文

posted @ 2009-10-17 00:19 万一阅读(7732) 评论(7) 推荐(0) 编辑

Delphi 2010 新增功能之: IOUtils 单元(4): TDirectory.GetDirectories

摘要：和 TDirectory.GetFiles 用法一样, TDirectory.GetDirectories 是用来获取子目录的.另外还有 TDirectory.GetFileSystemEntries 可同时获取文件与子目录, 用法都一样.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphi... 阅读全文

posted @ 2009-10-16 21:17 万一阅读(6032) 评论(1) 推荐(0) 编辑

Delphi 2010 新增功能之: IOUtils 单元(3): TDirectory.GetFiles 支持通配符

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; pr... 阅读全文

posted @ 2009-10-16 20:55 万一阅读(5905) 评论(0) 推荐(1) 编辑

随笔分类 - 2009-XE4 新功能