به چه طریقی فقط یک شرط رو از کار بندازیم.

[Mask]

مثال زیر رو ملاحظه بفرمایید . نمیدونم از چه دستوری باید استفاده کنم که وقتی در یه حلقه For کاری تموم شد کله حلقه Exit نشه و فقط همون قسمت Exit بشه.

[Delphi Coder]

از روی برنامه مشخص نیست دقیقا چیکار میخواید انجام بدین. ولی خوب وقتی که یه شرطی یا بلوکی داخل حلقه باشه تا زمانی که حلقه تموم نشه اجرا میشه.

[سعید صابری]

دوست عزیز باید واضح تر بگی

[mbshareat]

با سلام
اونطور که من برداشت کردم شما می خواین یک بار اجرای دستورات را لغو کنین و نمی دانین Break که فقط یک مرحله اجرای حلقه رو انجام نده چطور ممکنه.
به نظر من اینگونه کد بنویسین:
if StrToInt(Button2.Caption)<>100 then
Button2.Caption:=IntToStr(StrToInt(Button2.Caption )+1);

[MohsenB]

سلام

فکر کنم منظورتون این باشه :


procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
repeat
if StrToInt(Button2.Caption)<100 then
Button2.Caption:=IntToStr(StrToInt(Button2.Caption )+1);
if StrToInt(Button3.Caption)<100 then
Button3.Caption:=IntToStr(StrToInt(Button3.Caption )+1);
Application.ProcessMessages;
Sleep(100);
until (StrToInt(Button2.Caption)=100)and(StrToInt(Button 3.Caption)=100)
end;


موفق باشید