这样的判断怎么写。。

[gigikanglin]

先判断一个IF ，如果是TRUE。那出来一个提示窗口，选YES开始执行A。选NO不执行任何。
如果IF是FALSE。直接执行A。。

因为要执行的语句较多。想直接写好以后调用那一大段代码。而不是笨办法写2遍。

谢谢。

[happytang]

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

[happytang]

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

[deansroom]

把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;

[lzg827]

来晚了

小妹妹 你怎么专门问这些问题啊
要看书啊

不过楼上那样写，我觉得容易引起歧义
procedure TForm1.Button1Click(Sender: TObject);
begin
if true then
begin
if (application.MessageBox('选择代码', '请选择是否执行', [MB_YESNO]) = IDYES) then
A
end
else
A;
end;

这样可读性强些吧，嘿嘿

[coreblood]

楼主是妹妹啊......

[happyggy]

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;

[zzzl]

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