二进制文件的读写问题（在线等待）

Question

写进去
var fileStream TFileStream;
i:integer;
fileName:string;begin
try
i:=1659872911;//此处小心溢出
fileName:='文件名';
fileStream:=TFileStream.create(fileName,fmCreate);
fileStream.write(i,sizeof(i));
finally
fileStream.free;
end;
end;读出来var fileStream TFileStream;
i:integer;
fileName:string;begin
try
fileName:='文件名';
fileStream:=TFileStream.create(fileName,fmopenread);
fileStream.read(i,sizeof(i));//读到i里面去了
finally
fileStream.free;
end;
end;

Answer 1

如果是字符串，添加一点代码就行了
写进去
var fileStream TFileStream;
i:integer;
fileName,Strdata:string;begin
try
strData='1659872911';
i:=strtoint(strData);//此处小心溢出
fileName:='文件名';
fileStream:=TFileStream.create(fileName,fmCreate);
fileStream.write(i,sizeof(i));
finally
fileStream.free;
end;
end;读出来var fileStream TFileStream;
i:integer;
fileName,strData:string;begin
try
fileName:='文件名';
fileStream:=TFileStream.create(fileName,fmopenread);
fileStream.read(i,sizeof(i));//读到i里面去了
strdata:=inttostr(i);
finally
fileStream.free;
end;
end;

Answer 2

//写文件
var
 myStr:string;
 myFile:File of byte;
 i:integer;
begin
 myStr:='1659872911';
 assignFile(myFile,'你的文件名');
 try
  reset(myFile); //打开文件
  seek(myFile,0); //定位到文件头
  for i:=1 to length(myStr) do
   write(myFile,byte(myStr[i])); //每写一个字节，文件指针自动后移
 finally
  closeFile(myFile);
 end; //end of try
end;//读文件，你必须事先知道要读多少个字节
var
 myStr:string;
 myFile:File of byte;
 i:integer;
begin
 setLength(myStr,10); //先确定要读出的字符串的长度
 assignFile(myFile,'你的文件名');
 try
  reset(myFile); //打开文件
  seek(myFile,0); //定位到文件头
  for i:=1 to 10 do
   read(myFile,byte(myStr[i])); //每读一个字节，文件指针自动后移
 finally
  closeFile(myFile);
 end; //end of try
 showMessage(myStr); //试一下，读得对不对
end;

Answer 3

但二进制文件已经打开了，是一个可执行文件，在运行状态下
能用TFileStream吗？

Answer 4

二进制文件在运行是，能用TFileStream来进行读取吗

Answer 5

我想用TMemoryStream来做，合适吗？

Answer 6

不可以吧。
用来存文件还是TFileStream吧，好用呀

Answer 7

我用TMemoryStream时，如果把写和读写在一个procedure里，
读出来就正常，如果分开写成两个procedure，读出来就不对，
这是为什么？
能用TMemoryStream做个例子吗？