2008 年 8月 12 日随笔档案 - 万一

2008年8月12日

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button... 阅读全文

posted @ 2008-08-12 23:47 万一阅读(4026) 评论(6) 推荐(0) 编辑

开始换用 Delphi 2009

摘要：试用的第一个版本是: v12.0.3128.15596 安装很快也很顺利, 就是不喜欢哪个 Start Page; 以前是用 Delphi Distiller 去掉的, 不过现在还没有相应的版本; 那就修改启动参数吧. 从 Delphi 2009 启动菜单上点右键 -> 查看属性: "C:\Program Files\CodeGear\RAD Studio\6.0\bin\bds.exe" ... 阅读全文

posted @ 2008-08-12 21:54 万一阅读(15465) 评论(48) 推荐(0) 编辑

对比两个文件是否相同的函数

摘要： function CompFile(const f1,f2: string): Boolean; var ms1,ms2: TMemoryStream; i,p: Integer; b1,b2: Byte; begin Result := False; if not (FileExists(f1) and FileExists(f2)) then Exit; ms1 :... 阅读全文

posted @ 2008-08-12 14:56 万一阅读(4614) 评论(9) 推荐(0) 编辑