怎样把二进制的数据往文件里写？

Question

如题，也可以说说网上哪里有这方面的资料

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
 myFile:File of byte;
 tmpStr:string;
 i:integer;
begin
 //指定一个已存在的文件
 AssignFile(myFile,'d:\test01.txt');
 tmpStr:=Edit1.Text;
 //打开一个已存在的文件
 Reset(myFile);
 //定位到文件头
 Seek(myFile,0);
 //写入数据，Byte和Char实际是同一类型的不同形态
 for i:=1 to Length(tmpStr) do
  Write(myFile,byte(tmpStr[i]));
 //重新定位到文件头，读数据
 Seek(myFile,0);
 for i:=1 to Length(tmpStr) do
  Read(myFile,byte(tmpStr[i]));
 //关闭文件
 CloseFile(myFile);
 Edit2.Text:=tmpStr;
end;

Answer 2

还可以参考一下TFileStream的帮助，用文件流的方式读写文件。