**** 关于将字符串写进二进制文件

Question

var
  OutFile:File;
//  fbuffer:array [0..128] of char;
  i:integer;
bagin
  assignfile(outFile,'G:\123.123');
  Reset(outFile,1);
  Seek(outFile,46);
  //for i:=0 to 128 do fbuffer[i]:=chr(0); //对 fbuffer 清空
  //for i:=1 to length(strName) do fbuffer[i-1]:=strName[i]; //付值给 fbuffer
  Blockwrite(outfile,PChar(strName)^, length(strName));  //写文件
  closefile(outfile);
end;

Answer 1

使用TFileStreamuses classes,....var f: TFileStream;
    fbuffer:array [0..128] of char;
begin
  f:= TFileStream.Create('c:\xxx', fmOpenReadWrite);
  f.Seek(64, soFromCurrent);
  f.Write(fBuffer, sizeof(fbuffer));
  f.Free;
end;

Answer 2

非常感谢 hellion(恶人) ，你的方法真在令我太満意。至于Crob(干净的袜子) 虽然并没有解决我的问题，只是用了另一钟文件读存方法。而我在的就是如何将 STRING 直接存到文件中。但也十分感谢你。