Delphi文件操作常用函数
====================================================
Delphi操作文件的一般步骤：
1）关联文件：
AssignFile(var F; FileName :string)；
2）初始化文件：
Append(var F :Text);
//只写，于文件最后追加数据
Reset(var F [; RecSize :Word]);
//只读，文件必须存在，文件指针置于开头
//第二参数指定指针移动的大小，对于无类型文件有效
//对于类型文件，则按具体类型的大小，而文本文件默认128字节
Rewrite(var F :File [; Recsize :Word]);
//覆盖只写，若文件已存在，则删之重建空文件写
3）读写文件：
Eof(var F):Boolean; //End of File? 文件指针是否处于文件结尾
Eoln[(var F :Text)]:Boolean; //End of line?
Seek(var F; N :Longint); //对于文本文件无效
//移动文件指针N个单位，N为正则向前移，N为负则向后移
SeekEof[(var F :Text)]:Boolean;
//同Eof，区别在于本函数忽略空白符
SeekEoln[(var F :Text)]:Boolean;
//同Eoln，区别在于本函数忽略空白符
FilePos(var F):Longint; //文件必须打开
//获取文件指针当前位置，若在文件开头则返回0
FileSize(var F):Integer; //文件必须打开
//获取文件大小，返回的大小并非根据字节计算，而是根据传递数据时记录的大小计算。故应先声明一个无类型文件并初始化为Reset(F,1);使记录大小为1字节，或者声明char类型（1字节）文件，即：File of char变量
Read(F, v1 [, v2, v3...vn]);
//读取一个数据存储于参数v1中，若一次读取多个数据，则可带多个参数。若声明的是类型文件，则参数的类型和类型文件的类型一致；若声明的是文本文件，则参数基本上可以是任何基本数据类型。当读入多个数值时，Read方法将假定数值是用一个或多个空格、制表符（#9）或回车（#13#10）隔开的，而不是逗号、分号或其它字符。
Readln([var F :Text;] v1 [, v2, ...,vn]);
//读取一行数据，只适用于文本文件
Write(F, v1 [, v2,...,vn]); //往文件中添加内容
Writeln([var F :Text;] p1 [, p2,...,pn]);
//写一行数据，只适用于文本文件
4）关闭文件：
CloseFile(var F);
//解除文
相关文档：
http://book.77169.com/data/web5302/20050228/20050228__3692503.html
ActiveX 和 Web
在Windows 操作系统下，有一个重要的机制，就是OLE ，就是可以让某
个应用程序（OLE Controller）访问其它应用程序（OLE Server）所提供的
功能，这样做的好处是，如果已经有了完成某项功能的程序，你就不必再为
某项功能编写特定 ......
delphi调用选择目录对话框
经常见网上有人问选择目录对话框的控件，其实只用一个函数就可以实现。
注意引用 Filectrl 单元
use Filectrl;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: String;
begin
SelectDirectory('Select a directory', '', Dir);
ShowMessage(Dir);
end; ......
1>向指定的区域或形状添加超链接。
语法
表达式.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
表达式 一个代表 Hyperlinks 对象的变量。
参数
名称必选/可选数据类型描述
Anchor
必选
Object
超链接的位置。可为 Range 或 Shape 对象。
Address
必选
String
超链接的地� ......
Day 开头的函数
●
Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
描述
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个
只带有日期的 TDateTime 类型变量。
例如：
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(Dat ......
淘宝开放平台的开发例子大多都是c#，php，java等，缺少Pascal的例子。
现用delphi写了一个示例，
关键点是签名的生成，签名需按key字母顺序排序，并去掉等于号后首尾相连。
关键代码：
memstr:= TMemoryStream.Create;
//用授权码获取 session
IdHTTP1.Get('http://container.api.tbsandbox.com/c ......
