上一页 1 ··· 136 137 138 139 140 141 142 143 144 ··· 197 下一页
摘要: 以后路径相关的处理, 用 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中间件 阅读(2555) 评论(0) 推荐(0) 编辑
摘要: IOUtils 单元主要就是三个结构: TDirectory、TPath、TFile, 很有用; 下面是 TFile 的功能简介.--------------------------------------------------------------------------------TFile.Exists();--------------------------------------------------------------------------------//判断指定的文件是否存在----------------------------------------------- 阅读全文
posted @ 2013-03-03 11:30 delphi中间件 阅读(2470) 评论(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中间件 阅读(2764) 评论(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中间件 阅读(852) 评论(0) 推荐(0) 编辑
摘要: 通过 Rtti 单元的 TRttiContext(是个 record), 可以方便地获取类的方法、属性、字段的列表. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Contro 阅读全文
posted @ 2013-03-02 22:43 delphi中间件 阅读(2155) 评论(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中间件 阅读(1742) 评论(0) 推荐(0) 编辑
摘要: //////////////////////////////////////////////////////////////////////////////////功能: STRING 的内容流化到 OLEVARIANT 中//参数:////////////////////////////////////////////////////////////////////////////////function TextToOleData(const AText: string): OleVariant;varnSize: Integer;pData: Pointer;beginnSize := 阅读全文
posted @ 2013-02-27 11:04 delphi中间件 阅读(8301) 评论(0) 推荐(0) 编辑
摘要: 对于守护中间件是非常有用的。中间件不可能绝对的稳定而不出问题,中间件有可能因比较严重的错误导致当机或者进程被人为地错误地关闭了中间件。有了这个自动守护进程的存在,这一切的问题都可以迎刃而解。program Monitor;// {$APPTYPE CONSOLE}uses Winapi.Windows, System.SysUtils, ProcLib in 'ProcLib.pas';var Mutex, h: HWND;const c_AppName = 'server.exe'; c_ClassName = 'Tf_MainForm';be 阅读全文
posted @ 2013-02-21 13:32 delphi中间件 阅读(1655) 评论(1) 推荐(0) 编辑
摘要: 现在,DATASNAP倾向于使用JSON作为统一的数据序列格式,以期达到跨平台的效果。于是使用JSON便成为热点。unit uJSONDB;interface uses SysUtils, Classes, Variants, DB, DBClient, SuperObject, Dialogs; type TJSONDB = class private class function getJsonFieldNames(res: ISuperObject):TStringList ; class function getJsonFieldValues... 阅读全文
posted @ 2013-02-20 22:56 delphi中间件 阅读(6740) 评论(0) 推荐(2) 编辑
摘要: 窗口、控件以及字体大小均随分辨率而变化,让界面适应各种不同的分辨率。var FWidth: Integer;begin inherited; if (Screen.width <> 1024) then begin FWidth := Self.width; Scaled := True; Font.Size := (Self.width DIV FWidth) * Font.Size; // 字体大小调整 ScaleBy(Screen.width, 1024); // 控件大小调整 Self.Height := longint(Height) * lon... 阅读全文
posted @ 2013-01-30 15:03 delphi中间件 阅读(1104) 评论(0) 推荐(0) 编辑
上一页 1 ··· 136 137 138 139 140 141 142 143 144 ··· 197 下一页