快扒分！！！如何在DELPHI中改变DBF文件的第一个字节？

Question

先删除DBF文件的第一个字节，把指针移到文件头，再写入要修改的字节。
要不要给你写个小程序？

Answer 1

在窗体上放Edit1和Button1，Edit1只能输入一个字符，用以替换DBF的第一个字节。
程序如下：procedure TForm1.Button1Click(Sender: TObject);
var
  F : HFile;
  ch : PChar;
begin
  ch := pchar(Edit1.Text);          //仅能输入一个字符(其实也可以是多个字节)
  F := _lCreat('c:\money.dbf', 0);  //创建读写文件,指定DBF文件的路径
  _llseek(F, 0, FILE_BEGIN);        //把指针移到文件头
  _lwrite(F, ch, length(trim(Edit1.text)));                //写入字符ch
  _lClose(F);                       //关闭文件， 用debug可以查看是否修改成功
end;哈哈哈哈哈哈...给分吧