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

[laowai]

[Michaelyfj]

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

[laowai]

太好了。程序一到就给分。（刚才出去了一下，回复迟了，抱歉）。

[Michaelyfj]

在窗体上放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;

哈哈哈哈哈哈...给分吧

[laowai]

上铺的兄弟：谢了。

[laowai]

再问：那么如何将文件头第一个字符删去？