源代码如下:
procedure TForm_Main.Button2Click(Sender: TObject);
var
fileName:string;
begin
if messagedlg('要删除记录吗?', mtConfirmation, [mbyes, mbno], 0)=mryes then
begin
Table1.Delete;
fileName:=ExtractFilePath(Application.ExeName)+Table1.FieldByName('FN').AsString;
DeleteFile(fileName);
end
end;