Exit procedure

[delphi77]

درود بر همه شما جویندگان دانش
از توجه شما نسبت به این موضوع سپاس گزارم
چگونه می توانم از درون یک تابع پس از فراخوانی آن، کنترل برنامه از پروسیجری که تابع را فراخوانده خارج شود.
:گیج: ------------------------------------------------------------------------------------------------
من تاج نمی خواهم من تخت نمی خواهم
در خدمتت افتادن بر روی زمین خواهم

[delphi77]

:گیج:

[Developer Programmer]

افشین جان بی خیال
Edited By Delphi-Clinic

توابع Break Halt Exit رو مطالعه کنین

با تشکر :flower:

[delphi77]

::نوشتن::

[delphi77]

برای مثال :

procedure TForm1.s();
begin
ShowMessage('break Button1Click ');
[Exit Button1Click]
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
s;
ShowMessage('yes');
end;

[delphi77]

در واقع نمی خواهم دستور زیر اجرا شود

ShowMessage('yes');

[دنیای دلفی]

بعد از احضار S از تابع Exit استفاده کن دیگه فرمام بعدی اجرا نمی شه .

:موفق:

[delphi77]

درود بر همه شما جویندگان دانش
از توجه شما نسبت به این موضوع سپاس گزارم

این یک مثال بود و نه مشکل من
من می خوام در خود تابع s(); کاری کنم که چنین اتفاقی بیفته :موفق:
------------------------------------------------------------------------------------------------
من تاج نمی خواهم من تخت نمی خواهم
در خدمتت افتادن بر روی زمین خواهم

[دنیای دلفی]

مجبوری از GOTO استفاده کنی یا کلا Halt :strange:


موفق باشی

[delphi77]

:mad:

[دنیای دلفی]

:kaf:

[Zahraii]

اگه هنوز به جواب نرسیدی از raise در پروسیجر s استفاده کن.

[delphi77]

وقتی داشتم دستور raise را امتحان می کردم به جواب سوالم رسیدم


// [Exit Button1Click]
Abort;
یعنی بجای Exit Button1Click از دستور ;Abort استفاده نمایید :موفق:

[delphi77]

مایلم راهی را که دوستمون گفتن را هم خودشون با توضیح بیشتر ارایه بدهند چون من نحوه استفاده از دستور raise را متوجه نشدم :cry:

[Zahraii]

منظور من همین چیزیه که شما نوشتید :


raise EAbort.Create('')