Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Ինչպես ընդհատել գործարկվողի մեկնարկը: Գտնել նմանատիպ մասնաճյուղեր


Tupnyk   (2001-12-19 18:59) [0]

Ծրագրում m / y դիմումում: initializ ... և Application.run- ից կախված ինչ-որ գործառույթից, և որտե՞ղ պետք է այն իրականացնել, եթե ձևերը դեռ ստեղծվում են:



Юрий Зотов   (2001-12-19 19:21) [1]

Ինչպե՞ս է այնտեղ Անհրաժեշտության դեպքում այնտեղ և կատարեք, մինչ Դիմումը:

Կտտացրեք ցանկի վրա `Ծրագիր | Դիտել աղբյուրը: DPR տեքստը բացվում է, և դրա մեջ գրիչներով գրեք ցանկալի ծածկագիրը ճիշտ տեղում: Եվ մեկնարկը ընդհատելու համար կարող եք գրել Halt կամ օգտագործել, եթե, օրինակ, այսպիսին է.

Application.Initialize;
եթե <պայմանը ստուգելը>, ապա
սկսել
Դիմում. ՍտեղծելForm (...);
Դիմում. ՍտեղծելForm (...);
...
Դիմում
վերջ
վերջ:



Дремучий   (2001-12-19 19:28) [2]

կամ
....
Application.Initialize;
if <проверка условия>
then Application.Terminate
else Application.Run;
end.




Юрий Зотов   (2001-12-19 19:36) [3]

> Deep © (19.12.01 19: 28)

Application.Run - սկսվում է հաղորդագրության fetch ցիկլը:
Application.Terminate - ուղարկում է WM_QUIT հաղորդագրություն:

Հետևաբար, չափազանց հետաքրքիր է իմանալ, թե ինչպես է Application.Terminate- ը կարող է աշխատել, եթե Application.Run- ը չի կանչվել:



Tupnyk   (2001-12-19 21:07) [4]

Եվ եթե պայմանի մի մասը պետք է ստացվի որոշակի գործառույթի կատարման արդյունքում, ապա որտե՞ղ պետք է իրականացվի այդ գործառույթը ինքնին:



y-soft   (2001-12-19 21:26) [5]

> Տուպնիկ
Կարող եք հետևել Յուրի Զոտովի խորհրդին, բայց
հնարավորության դեպքում, ավելի լավ է ստուգել նախքան Դիմում զանգահարելը: Initialize, այն է ՝ հենց առաջին բեռնվող մոդուլի Initialization բաժնում և, անհրաժեշտության դեպքում, դադարեցնել դիմումի կատարումը պարզ դադարեցման կոչով: Ի. այդ նպատակով ստեղծեք հատուկ մոդուլ և դրեք այն առաջինը USES ֆայլում :DPR



Юрий Зотов   (2001-12-19 21:35) [6]

> Tupnyk (19.12.01 21: 07)

Հավանաբար դեռ ոչ թե «վազել», այլ «կարգավորել»: Պատասխանը ցանկացած վայրում է, եթե միայն այն «տեսանելի» է ԿԺԴՀ-ից: Այսինքն ՝ գոնե ԿԺԴՀ-ում, գոնե դրանում նախատեսված ցանկացած մոդուլում:




Tupnyk   (2001-12-19 22:19) [7]

Շնորհակալություն.



Дремучий   (2001-12-19 22:36) [8]

2 Յուրի Զոտով © (19.12.01 19: 36)
պարզապես ծրագիրը չի ավարտվի Application.Terminate;
և կողմից
վերջ:

Դուք ճիշտ եք, այնուամենայնիվ նման սխալի կոդ չի արտադրում...

program Project1;

uses
Forms,
Unit1 in "Unit1.pas" {Form1};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Terminate;
//Application.Run;
end.



Юрий Зотов   (2001-12-19 22:43) [9]

> Խիտ © (19.12.01 22: 36)

> Այս սխալի կոդը չի արտադրում ...

Եվ ինչո՞ւ էր նա սխալ թույլ տալիս: Իհարկե այդպես չէ: Բայց դա ոչինչ չի անում. Եթե Application.Terminate- ը պարզապես նետվի, ապա դա կլինի նույնը `ավարտի ավարտը: Ինչը ցույց է տրվել օրինակում:





Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Up





Հիշողություն `0.57 ՄԲ
Ժամանակը `0.024 գ
1-22023
Delphig
2001-12-13 03:13
2002.01.08
Ինձ հետ թեմայից դուրս: Որ OS Delphi- ն ավելի լավ է աշխատում:


1-22244
Սոկոլ
2001-12-15 15:42
2002.01.08
Ներբեռնեք ֆայլը:


3-21967
Քոչարիֆ
2001-12-05 11:32
2002.01.08
SQL- ի մասին


1-22231
Leviathan
2001-12-16 22:16
2002.01.08
BitBlt ...


1-22259
Առնետներ
2001-12-12 17:55
2002.01.08
Dorisovka կորեր (կրկնակի 2)





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский