Kak Astanavt Rabotu Script

Burhan_ast

PRivet

kak mojna ostanavit rabotu script, kak u delphi Ctrl + F2,

Script

Begin
AdoQuery1:=TAdoQuery.Create(self);

for i:=1 to 10000 do
begin
application.proccessmessage;

for y:=1 to 190000 do
Begin
application.proccessmessage;

for k:=1 to 20000 do
Begin
application.proccessmessage;
end;
end;
end;
AdoQuery1.Free;
end.


u mne ect na main form button Run Script i tagji stop scritp,

kogda run script najat script rabotayt hachu kogda najimat stop hchu ostanavit script kak eto mojna,