Question

delphi 删除记录

每句话都是干什么用的？帮我加个注释，谢谢。
procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
begin
if messagedlg('真的要删除吗？',mtconfirmation,[mbyes,mbno],0)=idyes then
begin
i:=stringgrid1.Row;
seek(data,i-1);
for j:=i to count-1 do
begin
seek(data,j);
read(data,per);
seek(data,j-1);
write(data,per);
end;
truncate(data);
count:=count-1;
showGrid();
end;
end;

Answer 1

if messagedlg('真的要删除吗？',mtconfirmation,[mbyes,mbno],0)=idyes then
//弹出一个警告框
i:=stringgrid1.Row;//将stringgrid1的行数赋值给i
seek(data,i-1);将data文件指针定位至第（i-1)个记录处
for j:=i to count-1 do//让j从i 到 count-1做循环

read(data,per);从data中读取Per
write(data,per);将Per 写入Data
truncate(data);似乎是删除从文件指针开始的后面的所有记录
count:=count-1;
//将count-1
showGrid();怎么写的像C++啊，这应该是自定义函数吧