procedure TDelRec.DBGrid1CellClick(Column: TColumn); var file_name: string; f: file of Byte; begin file_name:=Query1.fieldbyname('文件路径名').asstring; AssignFile(f,file_name); Reset(f); CloseFile(f); end;
procedure TDelRec.Button3Click(Sender: TObject); begin begin if MessageDlg('你确信要删除记录?',mtwarning,[mbok,mbcancel],0)=mrok then DeleteFile(f); DBGrid1.SelectedRows.Delete; end; end; 帮忙该该程序,谢谢!
----------------------------------------------
-
procedure TDelRec.Button3Click(Sender: TObject); var S: string; begin begin if MessageDlg('你确信要删除记录?',mtwarning,[mbok,mbcancel],0)=mrok then S := Query1.FieldByName('文件路径名').AsString; if DeleteFile(S) then Query1.Delete; end; end;
----------------------------------------------