数据库删除中Table1.Delete的简单问题？

Question

在Table1.Delete；语句前如何确认删除？
就是弹出个对话框，选YES和NO，YES就删；
请问如何写语句？

Answer 1

procedure delebefore.click(sender:Tobject);
begin
  messagebox('确认删除吗？','提示',Mb_ok+Mb_cancel);
  if messagebox then 
     table1.delete;
    else close;
end;

Answer 2

上面的程序有错，请在下面的过程中写；
procedure TForm1.Button3Click(Sender: TObject);
begin//请写在这里Table1.delete;
end;

Answer 3

procedure delebefore.click(sender:Tobject);
begin
  if messagebox('确认删除吗？','提示',Mb_yes+Mb_no)=mr_yes then 
     table1.delete
    else close;
end;这样就可以了朋友， 
 Mrkang(菜菜) 朋友想法是很对，但对于相关写法不是很好，就如你在按键设计，不能是ok和CANCEL按键还有判断不能是那样写。 还有，在IF THEN 之间只有一行请不要用‘；’不然会有错误出现哦， 因为你还要接ELSE的，请方面要看设计标准文档

Answer 4

procedure delebefore.click(sender:Tobject);
begin
  if messagebox('确认删除吗？','提示',Mb_YESNO)=ID_YES then 
     table1.delete
    else close;
end;

Answer 5

if messagebox('确认删除吗？','提示',Mb_YESNO)=ID_YES then 
     table1.delete
    else close;
对于这样的if-else表示怀疑，如能可以删除就不关闭窗口，如果不可以就关闭窗口，其实else close;这样的语句完全可以不要

Answer 6

你们看看这样是不是对的，我运行老有错
procedure TForm1.Button3Click(Sender: TObject);
begin
if messagebox('确认删除吗？','提示',Mb_yes+Mb_no)=mr_yes then
 Table1.Delete;
end;

Answer 7

procedure delebefore.click(sender:Tobject);
begin
  if messagebox('确认删除吗？','提示',Mb_YESNO)=ID_YES then 
     table1.delete
    else close;
end;