这样的判断怎么写。。

Question

先判断一个IF ，如果是TRUE。那出来一个提示窗口，选YES开始执行A。选NO不执行任何。
如果IF是FALSE。直接执行A。。因为要执行的语句较多。想直接写好以后调用那一大段代码。而不是笨办法写2遍。谢谢。

Answer 1

定义一个flag为yes或No（1，0）
if（//true）
    if（flag==1）
        A（）；
    else return；
else
    A();

Answer 2

定义一个flag为yes或No（1，0）
if（//true）
    if（flag==1）
        A（）；
    else return；
else
    A();

Answer 3

把A 做成一个过程封装起来
procedure A;
begin
   showmessage('A');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
   if true then
      if (application.MessageBox('选择代码', '请选择是否执行', [MB_YESNO]) = IDYES) then
         A
      else
         A;
end;

Answer 4

来晚了小妹妹 你怎么专门问这些问题啊
要看书啊不过楼上那样写，我觉得容易引起歧义
procedure TForm1.Button1Click(Sender: TObject);
begin
  if true then
  begin
    if (application.MessageBox('选择代码', '请选择是否执行', [MB_YESNO]) = IDYES) then
      A
  end
  else
    A;
end;这样可读性强些吧，嘿嘿

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
label AA;
begin
    if true then
    begin
       if messagebox(0,pchar('Yes or No ？'),pchar('提示'),
          MB_YESNO+MB_ICONQUESTION)= mryes then
          goto AA
       else exit;
    end else goto AA;    AA: begin
       ShowMessage('(True and Yes) or False');
    end;
end;

Answer 6

你可以写一个IIF函数(google it)