Delphi 2010 最抢眼的新功能可能就是支持"触摸屏"了, 它包括一个 可触控的软键盘 和识别不同的触屏手势. 因为手势同时支持鼠标, 所以没有触摸屏的我也可以尝试一下其大多数的功能. 首次尝试的步骤: 1、加 TGestureManager 控件如窗体: GestureManager1; 2、设置窗体属性 Touch.GestureManager := GestureManager1; {下面程序是在设计时指定的属性} 3、添加窗体的 OnGesture 事件, 随便写点什么; 4、然后运行程序, 用鼠标随便在窗体上 "划" 几下... 第一个测试程序完成了! 5、添加窗体的panle1 OnCreate 事件, 写:...

IOUtils 单元主要就是三个结构: TDirectory、TPath、TFile, 很有用; 下面是 TFile 的功能简介. TFile.Exists(); //判断指定的文件是否存在 TFile.Copy(); //复制文件 var   source,dest: string; begin   TFile.Copy(source, dest);      {不允许覆盖同名的文件}   TFile.Copy(source, dest, True); {将覆盖同名的文件} end; TFile.Move(); //移动文件 var   source,dest: string; begin   TFile.Move(source, dest); end; TFile.Delete(); //删除文件 TFile.Replace(); //替换文件, des...

之前复杂的ExtractFilePath 这类的函数总算有新的替换者了。 //较常用的方法: TPath.GetTempPath;                  {获取临时文件夹路径} TPath.GetTempFileName;              {获取一个临时文件名} TPath.GetPathRoot();                {提取盘符, 如: c:\} TPath.GetDirectoryName();            {提取路径} TPath.GetFileName();                {提取文件名} TPath.GetExtension();                {提取扩展名} TPath.GetFileNameWithoutExtension(); {提取无扩展名的文件名} TPath.ChangeExtension...

TDirectory.CreateDirectory();    {建立新目录} TDirectory.Exists();              {判断文件夹是否存在} TDirectory.IsEmpty();            {判断文件夹是否为空} TDirectory.Copy();                {复制文件夹} TDirectory.Move();                {移动文件夹} TDirectory.Delete();              {删除文件夹, 第二个参数为 True 可删除非空文件夹} TDirectory.GetDirectoryRoot();    {获取目录的根盘符, 如: C:\} TDirectory.GetCurrentDirectory;  {获取当前目录} TDirectory.SetCurrentDirectory()...

和 TDirectory.GetFiles 用法一样, TDirectory.GetDirectories 是用来获取子目录的. 另外还有 TDirectory.GetFileSystemEntries 可同时获取文件与子目录, 用法都一样. Demo下载：IOUnit4 和 TDirectory.GetFiles 用法一样, TDirectory.GetDirectories 是用来获取子目录的. 另外还有 TDirectory.GetFileSystemEntries 可同时获取文件与子目录, 用法都一样.   unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TFor...

实现查收指定目录的，特定文件名和 模糊查询也能很简单实现 获取指定目录下有 Li 开头的文件 获取指定目录及其子目录下文件名只有 3 个字母的 pas 文件 DEMO下载：IOUnit3   代码部分： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) mmo1: TMemo; btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarat...

IOUtils单元，查找文件夹内信息的getfile函数，还可以在内部嵌套函数，提升其功能的扩展，非常好用！ DEMO下载：IOUnit2   代码部分： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) mmo1: TMemo; btn1: TButton; btn2: TButton; btn3: TButton; btn4: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); proced...

任何数据类型中 Rtti 中都有对应的获取信息的类, 有序类型对应的是 TRttiOrdinalType. DEMO下载Rtti3 代码部分： //任何数据类型中 Rtti 中都有对应的获取信息的类, 有序类型对应的是 TRttiOrdinalType. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) mmo1: TMemo; btn1: TButton; btn2: TButton; btn3: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject);...

用 IOUtils 单元下的 TDirectory.GetFiles 获取文件列表太方便了; DEMO下载IOUnit1 下面的例子只是 TDirectory.GetFiles 的典型应用... unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; btn3: TButton; mmo1: TMemo; lbl1: TLabel; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); private { P...

通过 Rtti 还能够调用一个类的方法, 也能读取或设置其属性值. Demo下载Rtti单元读取设置一个类   代码部分： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; btn3: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); private { Private declarations } public { Public declarati...

delphi2010新增的Rtti单元可以轻松的获取某一个指定的类的信息。 Demo下载Rtti 单元(1) 程序代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) mmo1: TMemo; btn1: TButton; btn2: TButton; btn3: TButton; btn4: TButton; btn5: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn4Click(Sender: ...

程序员职业之路已经完成了~今天开始每日一练，收集和向网络学习，提高自己。 delphi2010有一个新加的控件号称是 TTouchKeyboard， 触屏控件。 -------------------------------------------------------------------------------------------------------------------- 代码部分： --------------------------------------------------------------------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,...