PDA

View Full Version : سوال: یه سوال ساده درباره دستورات شرطی



farzadkamali
پنج شنبه 10 اردیبهشت 1394, 21:33 عصر
سلام
یه همچین دستوری رو در نظر بگیرید (درست کار میکنه اما دستور بهینه ترش رو میخوام).



if condition then
begin
if condition then
showmessage
else
begin
دستورات 1
;end
end
else
begin
همون دستورات 1
end;


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

ehsan_faal
پنج شنبه 10 اردیبهشت 1394, 21:48 عصر
پس کلمه Then چی شد؟

Ananas
جمعه 11 اردیبهشت 1394, 00:16 صبح
سلام.
کافیه از 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
جمعه 11 اردیبهشت 1394, 10:37 صبح
پس کلمه 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;


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