`
woxiaoe
  • 浏览: 283496 次
  • 性别: Icon_minigender_1
  • 来自: 长沙
社区版块
存档分类
最新评论
文章列表
  Delphi之Format函数 Format是一个很常用方法,并且使用它可以实现众多格式的转变.因此学会使用Format是非常重要的. 首先看它的声明:function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式,另外一种是三个参数的,主要区别在于它是线程安全的,
看到网上那么多Loadrunner 8.1的破解教程,还是把我亲自试验的结果给大家分享一下。 1、正确安装LoadRunner 8.1的英文版; 下载地址:ed2k://|file|LoadRunner.V8.1.iso|683960320|FF81A7941DD63981EA10E0637F43C3FB|h=VGJDMGK5DXZBSWSAXYKS7WOTOWB7T6EQ|/
(*// 标题:数据网格自动适应宽度 说明:使用DBGrid不可不看 设计:Zswang 日期:2002-03-04 支持:wjhu111@21cn.com //*) ///////Begin Source uses Math; function DBGridRecordSize(mColumn: TColumn): Boolean; { 返回记录数据网格列显示最大宽度是否成功 } begin Result := False; if not Assigned(mColumn.Field) then Exit; mColumn.Field.Tag := Max(mColumn.Field.Tag, ...
图形界面 RAR 和 ZIP 自解压模块(Default.SFX 和 Zip.SFX)    使用这两种模块你可以创建 GUI (图形模式) 自解压文件 的 32 位 Windows 版本(Windows 95    ,98,NT 等等),这些模块无法在 Windows 3.1 或 DOS 下运行。    使用 Default.SFX 模块于 RAR 压缩文件 以及 Zip.SFX 给 ZIP 压缩文件。    这些模块均支持简易的 Setup 命令,你可以将 Setup 命令叙述添加到自解压 压缩文件注释     中。下面是 Setup 命令的叙述,在命令上单击可获得详细描述。    ...
  Delphi  控制Excel(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿:ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿:ExcelApp.WorkBooks.Open( 'C:\Exc ...

TreeView 节点图标

有两个状态,一个为默认状态,一个为选中状态,对二者都要进行设置   TreeNode.ImageIndex     TreeNode.SelectedIndex
Delphi窗体默认靠在左边,且无法移动。原因是将Form 的align的属性设为了alLeft 给位alNone即可解决。

意外的发现

意外的发现我的这个博客PR=2,真没想到。
http://hi.baidu.com/cnarfa/blog/item/c592b300adccd514728b65a4.html 一、预备知识:        Secure:     SecureCRT将SSH(Secure Shell)的安全登录、数据传送性能和Windows终端仿真提供的可靠性、可用性和可配置性结合在一起。    SecureCRT将终端仿真程序同Secure Shell协议的强加密功能、多种认证选项和数据整合特性相联合,可以有效的保护密码、用户帐号、数据和计算机系统。SecureCRT具有安全远程访问、文件传输和数据通道功能。  SecureCRT为 ...
Delphi中调用DeleteFile 删除文件,但是DeleteFile不能删除只读文件。如果要删除只读文件,应该将其只读属性去掉,在调用DeleteFile来删除。  SetFileAttributes(fileName,file_attribute_normal);  DeleteFile(fileName);
var data: WIN32_FILE_ATTRIBUTE_DATA; systime: SYSTEMTIME; local: FILETIME; begin if(not GetFileAttributesEx( 'C:\新建文件夹 ', GetFileExInfoStandard, @data)) then RaiseLastWin32Error(); FileTimeToLocalFileTime(data.ftCreationTime, local); //要转 ...
Delphi的DbGrid默认不支持滚屏。通过一下代码可以让DbGrid支持鼠标滚屏   procedure NewGridWnd(var message:TMessage);    OldGridWnd: TWndMethod;   procedure TForm1.FormCreate(Sender: TObject); begin //支持鼠标滚动 OldGridWnd :=dbgrd.WindowProc; dbgrd.WindowProc :=NewGridWnd; end; //支持鼠标滚动 procedure TForm1. ...
首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas      功能 返回两个字符串是否相等      说明 不区分大小写      参考 <NULL>      例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text);      ━━━━━━━━━━━━━━━━━━━━━      首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas      功能 返回字符串S的 ...
1 oracle10g 卸载   软件环境:   1、Windows XP + Oracle 10g   2、Oracle安装路径为:d:\Oracle   实现方法:   1、开始->设置->控制面板->管理工具->服务停止所有Oracle服务;   2、开始->程序->Oracle – OraDb10g_home1>Oracle Installation Products-> Universal Installer 卸装所有Oracle产品,但Universal Installer本身不能被删除;   3、运行regedit,选择HKEY_LOCAL_MACHINE\S ...
今天在使用应用程序连接Oracle时碰到了 “ORA-12638: 身份证明检索失败” 错误,到网上搜索了一下,是因为Oracle的高级安全性验证导致,解决办法如下:开始 -> 程序 -> Oracle -> Configuration and Migration Tools ->Net Manager→本地→概要文件→Oracle高级安全性→验证→去掉所选方法中的 "NTS" 就可以了.
Global site tag (gtag.js) - Google Analytics