یه سوال ساده درباره دستورات شرطی

[farzadkamali]

سلام
یه همچین دستوری رو در نظر بگیرید (درست کار میکنه اما دستور بهینه ترش رو میخوام).

if condition then

begin

    if condition then

      showmessage    

    else  

     begin 

       دستورات  1

      ;end   

end

else

begin

همون دستورات 1

end;

می خوام مجبور نباشم دستورات 1 رو دوباره تکراری بنویسم.

[ehsan_faal]

پس کلمه Then چی شد؟

[Ananas]

سلام.
کافیه از and استفاده کنی.

  if b1 then

  begin

      if b2 then

        ShowMessage('b1, b2')

      else

      begin

         ShowMessage('...');

      end;

  end

  else

  begin

    ShowMessage('...');

  end;



// ==========



  if (b1 and b2) then

    ShowMessage('b1, b2')

  else

  begin

    ShowMessage('...');

  end;

[farzadkamali]

پس کلمه Then چی شد؟

حواسم نبود به جای then نوشتم else درست شد.

سلام.
کافیه از and استفاده کنی.

  if b1 then

  begin

      if b2 then

        ShowMessage('b1, b2')

      else

      begin

         ShowMessage('...');

      end;

  end

  else

  begin

    ShowMessage('...');

  end;



// ==========



  if (b1 and b2) then

    ShowMessage('b1, b2')

  else

  begin

    ShowMessage('...');

  end;

ممنون دوست عزیز . درسته.