BlockWrite的问题大家来探讨

[charlescoco]

TForm1中有不少的TEdit和TMemo，如过单单是
用SaveDialog的话，只能保存其中之一，那么，有什么办法
可以将那么多的资料保存在同一个文件中呢？？？？？？

[wylove]

可以将各个组件的内容按照一定格式组织在一起，然后通过Blockwrite写入一个文件：
下面是BlockWrite的一个例子：
procedure TForm1.Button1Click(Sender: TObject);
var
uTypeFile:file;
Buffer:Array[0..128] of char;
buf:String;
num:integer;
begin
AssignFile(uTypeFile,'d:\my.dat');
Reset(uTypeFile);
seek(uTypeFile,filesize(uTypeFile));
try
FillChar(buffer,sizeof(buffer),'Y');
BlockWrite(uTypeFile,buffer,1,Num);
if Num<>1 then Showmessage('读取失败'+buf);
finally
Closefile(uTypeFile);
end;
end;

[charlescoco]

可以将各个组件的内容按照一定格式组织在一起
着一步怎么做？？？