کنترل خارج شدن از داخل While

[khorsandreza]

سلام
من یک جدول با N تا رکورد دارم داخل دستورات زیر را در رویداد کلید قرار دادم حال میخواهم با فشردن کلید دیکر عملیات قطع شود


While Not MainQ.Eof Do
Begin
..
.
.
.
.

MainQ.Next;
End

[shervin farzin]

سلام
يه متغيير سراسري از نوع Boolean در نظر بگيريد، اين متغيير قرار تعيين كنه كه حلقه ادامه پيدا
ميكنه يا نه. در ابتداي كار مقدار اون رو True قرار بديد، بعد روي دكمه دوم كه باعث خرئج از حلقه
ميشه كدي بنويسيد كه مقدار اين متغيير رو به False تغيير بده. در انتها كد حلقه شما به شكل زير
تغيير پيدا ميكنه :

while Some_Condition do
begin
...
...
...
Application.ProcessMessages;
if not Boolean_Variable then Break;
end;

موفق باشيد.

[khorsandreza]

سلام
يه متغيير سراسري از نوع Boolean در نظر بگيريد، اين متغيير قرار تعيين كنه كه حلقه ادامه پيدا
ميكنه يا نه. در ابتداي كار مقدار اون رو True قرار بديد، بعد روي دكمه دوم كه باعث خرئج از حلقه
ميشه كدي بنويسيد كه مقدار اين متغيير رو به False تغيير بده. در انتها كد حلقه شما به شكل زير
تغيير پيدا ميكنه :

while Some_Condition do
begin
...
...
...
Application.ProcessMessages;
if not Boolean_Variable then Break;
end;

موفق باشيد.

ممنون از لطفتان که پاسخ دادید

مشکل اصلی اینه وقتی تو حلقه While قرار مگیره اجازه نمی ده از کلید استفاده بکند و اگر و سیستم بطور کامل قفل میشه
ببنید واضح تر عرض کنم وقتی تو هر حلقه ای چه For /While/repeat هستی بتونی کار دیگه ای هم انجام بدی

[khorsandreza]

ضمن تشکر مجدد shervin farzin
مشکل من تقریبا حل شد میخواستم بدانم این دستور برای جی هست و چکار انجام میدهد

Application.ProcessMessages

اگه بخواهیم شکل مکان نما از حالت ساعت شنی خارج شود چکار باید کرد من Cursor := crArrow; دستور مینویسم ولی هیج اتفاقی حاصل نمیشود همان ساعت شنی ظاهر میگردد

[vcldeveloper]

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


اگه بخواهیم شکل مکان نما از حالت ساعت شنی خارج شود چکار باید کرد من Cursor := crArrow; دستور مینویسم ولی هیج اتفاقی حاصل نمیشود همان ساعت شنی ظاهر میگردد
کد حلقه را داخل یک بلوک try..finally بنویسید، در ابتدای ورود به بلوک (قبل از ورود به حلقه) مکان نما را تبدیل به ساعت شنی کنید، و در بخش finally بلوک مکان نما را به حالت عادی برگردانید.

[khorsandreza]

آقای کشاورز سلام
منظورتان کد حلقه را داخل Try .. Finally من به هر دو شکل نوشتم جواب نداد




Cursor := crHourGlass;
try
While Not MainQ.Eof Do
Begin
...
...
...


MainQ.Next;
End;
finally
Cursor := crArrow;
end;






دستور دوم بشکل زیر





Cursor := crHourGlass;
While Not MainQ.Eof do
Try
....
...
...
MainQ.Next;
Finally
Cursor := crArrow;
End;




شکل کلی دستورت رویداد من




Procedure TConvertAcc2SqlForm.InstallPersnalData;
var
i,r:integer;
PChild: TPishraftForm;
Begin
PChild := TPishraftForm.Create(Application);
PChild.PBar.Max := MainQ.RecordCount;
_CancelWork := True;
PChild.SetFocus;
Cursor := crHourGlass;
While Not MainQ.Eof do
Begin
Try
inc(I) ;
PChild.Label3.Caption := IntToStr(I);
PChild.PBar.StepIt;
SP_IN300.Close;
SP_IN300.Prepare;
SP_IN300.Params[1].AsString := MainQcesr.AsString;
SP_IN300.Params[2].AsString := MainQserl.AsString;
SP_IN300.ExecProc;
SP_IN300.UnPrepare;
MainQ.Next;
Application.ProcessMessages;
if Not _CancelWork Then Break;
Finally
Cursor := crArrow;
End;
End;
End;

[khorsandreza]

اقای کشاورز سلام
در صورت امکان به پست شماره 6# نگاه کنید و بفرمائید اشکال کار کجاست؟