delphi 二进制文件读写操作

            很简单 ，很清晰的 一个 delphi 二进制文件读写操作

              控件自己加 ！ 一天学一个例子 1 年你就是高手     

procedure TForm1.FormCreate(Sender: TObject);
var
a:string;
begin
    a:='xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
f:file;
a:array[1..60] of char;
i:integer;
s:string;
begin
   assignfile(f,'c:a.exe');
   reset(f,1);
   seek(f,311696);

   for i:=1 to 60 do
      a[i]:=char(0);
   s:=edit1.text;

   for i:=1 to length(edit1.text) do
      a[i]:=s[i];   //a数组的前面被写入数据，后面为char(0)。

   blockwrite(f,a,60);
   closefile(f);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
f:file;
a:array[0..60] of char;
begin
    assignfile(f,'c:a.exe');
    reset(f,1);
    seek(f,311696);
    blockread(f,a,60);
    showmessage(a);
end;