delphi 自定义文件
本文转载:http://rabbitfox.blog.sohu.com/29948084.html
http://delphi.about.com/od/fileio/a/fileof_delphi.htm
首先向作者表示感谢！
《利用Delphi的“File Of
Type”创建并管理属于你自己的“数据库”》
原作者：Zarko Gajic
原文
在：http://delphi.about.com/od/fileio/a/fileof_delphi.htm
译 者：LihuaSoft
做人要厚道，转载请注明出处
（译
者注：此文并非直译的，而是尽量按照原文的结构，结合译者的编程体会，进行了概译）
前言
在程序中，我们需要用一个途径去把一些有规律的信息存储在磁盘上。不能用TXT格式的文件──因为它不是基于“记录”的，而且管理很不方便。
BDE或ADO也就是说Paradox、Access……唉，不列举了──这些我都不想用，尤其不想用BDE。我要用的是ASCII文本文件。
Delphi能做到吗？当然能！这就是“File Of”类型文件，或者说files of some type/binary files。
（译者注：与所有的Win32桌面应用程序编译器相比，Delphi有一个很独到的特点：它编译的Exe可以不需要一些公共动态链接库的支持，尽管因此
Delphi的EXE文件可能大一点。而VC、C++Builder、VFP等等这些我用过的编译器，却不是这样，它们编译的EXE往往需要打包一些
Dll才可以用。那么，我们用Delphi开发数据库程序时，使用BDE、ADO等等引擎，却因此给Delphi蒙羞──BDE、ADO等等，一般都需要
单独安装到操作系统中去。）
下面举例演示这个应用。
首先
我们首先要定义一个基类，也就是一个记录结构：
type
TMember = record
Name : string[10];
eMail :
string[20];
Posts : LongInt;
end;
然后声明一个记录集，假设有5条记录：
var Members : array[1..5] of TMember;
在我们读写我们的数据信息前，我们需要声明一个基于我们记录结构的文件变量：
var F : file of TMember;
注：在Delphi里，我们声明一个文件变量的一般格式就是：
var SomeTypedFile : file of SomeType;
这里所说的基类（Some Type），比如可以是Double、数组、记录。但不能是长字符串格式、动态数组、类类型以及指针。
接下来我
们要把我们的“数据库”文件�
相关文档：
这个本来我我在DELPHI盒子看到的，后来我对其作了一点修改，这里上全部代码，可以直接用
首先有两个自定的转换函数：
function myStrToHex(s:string):string; //字串转16进制
var
TmpStr:string;
i:integer;
begin
TmpStr:='';
for i:=1 to Length(s)do
TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
Res ......
Delphi7 调用 C#的Webservice 不能传入参数
解决办法：
在Delphi导入WSDL后生成的单元的最后一行，即initialization里的初始化端口的代码中加入代码
InvRegistry.RegisterInvokeOptions(TypeInfo(接口名), ioDocument);
即可
......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button ......
第一种方法,使用SelectDirectory 函数 ,在ShellApi中
procedure TForm2.BtSelectPathClick(Sender: TObject);
var
strCaption,strDirectory:String;
wstrRoot:WideString;
begin
strCaption:='这是浏览文件夹的说明文字，可以根据需要� ......
//加一下按钮，加一个对话框就OK啦
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
if OpenDialog1.Execute then
begin
s := OpenDialog1.FileName;
WinExec( PChar(s), SW_NORMAL);
end;
end;
----------------------- ......
