Прерывание чтения кода

[ImmortalAlexSan]

Как сделать так, чтобы в нужном месте дальнейшее чтение кода программой Делфи не продолжалось и закрывалась форма?

[Пепел Феникса]

а что значит "читать код"?
насколько я знаю, он исполняется.

может Application.Terminate?
или Form.Hide;exit;
смотря что именно нужно, конкретнее.

[ImmortalAlexSan]

Конкретно надо, чтобы прога не выполнялась дальше и закрывалась форма.
begin
//Операторы....
//та самая строчка, после которой дальнейший код не исполняется)
//дальнейший код

Вот, что нужно

18:13

Чтобы не выполнялся код, написанный в этой форме. Вот

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор

[Пепел Феникса]

if <условие> then exit;//выходим из процедуры

если что то Form.Close закрыть форму, при закрытии основной умирает приложение.
Form.Hide спрятать.

[ImmortalAlexSan]

Вот код:
#
begin
//óäàëåíèå íåïîñëåäíåé ñòðîêè
ZQuery2.SQL.Text:='Update detals set str_id='''+IntToStr(-1)+''', izdel_id=izdel_id, detal_id=detal_id,detal_name=detal_ name,detal_kol_izd=detal_kol_izd,po kr_name=pokr_name,detal_info=detal_ info where str_id='+Form1.DBGridEh2.Columns[0].Field.AsString;
ZQuery2.ExecSQL;
Form1.DBGridEh2.DataSource.DataSet. next;
bmk:=Form1.DBGridEh2.SelectedRows.D ataSet.GetBookmark; //Ôèêñèðóåì òåêóùåå ïîëîæåíèå
ZQuery2.SQL.Text:='Delete from detals where str_id='+inttostr(-1);
ZQuery2.ExecSQL;
Form1.ZQuery2.Refresh;
//êîíåö óäàëåíèÿ
//åñëè ñòðîêà ïîñëåäíÿÿ, òî ïðîñòî óäàëÿåì åå è çàâåðøàåì ðàáîòó
If Form1.DBGridEh2.DataSource.DataSet. Eof=true then
begin
ZQuery2.SQL.Text:='Delete from detals where str_id='+Form1.DBGridEh2.Columns[0].Field.Asstring;
ZQuery2.ExecSQL;
Form1.ZQuery2.Refresh;
Form1.DBGridEh2.DataSource.DataSet. First;
Exit;
end;
//êîíåö óäàëåíèÿ
//Ïðîíóìåðîâûâàåì ñòðîêè ñ âû÷åòîì åäèíèöû èç îñíîâíîãî íîìåðà
Form1.DBGridEh2.DataSource.DataSet. DisableControls; // Çàïðåùàåìè ìåëüêàíèå ñòðîê â äàòàñåòå
cnt := 0; //ñ÷åò÷èê
//Form1.DBGridEh2.DataSource.DataSet. GotoBookmark(bmk); // ïåðåõîäèì ê ôèêñèðîâàííîé ìåòêå
try
Form1.DBGridEh2.SelectedRows.DataSe t; // Íà÷èíàåì ñ âûäåëåííîé ñòðîêè
while not Form1.DBGridEh2.DataSource.DataSet. Eof do begin; // äî êîíöà ôàéëà.
Inc(cnt); //+1 ê ñ÷åò÷èêó //+1 ê ñ÷åò÷èêó
Form1.DBGridEh2.DataSource.DataSet. Next; //ñëåäóþùàÿ çàïèñü
end;
Form1.DBGridEh2.DataSource.DataSet. GotoBookmark(bmk); //âîçâðàò ê ìåòêå
finally
//Form1.DBGridEh2.DataSource.DataSet. FreeBookmark(bmk); //îñâîáîæäàåì ïåðåìåííóþ
Form1.DBGridEh2.DataSource.DataSet. EnableControls; //âêëþ÷àåì ìèãàíèå ñòðîê
showmessage('Êîëè÷åñòâî ñòðîê='+inttostr(cnt));
end;
//êîíåö ñ÷åòà
close();
{ZQuery2.SQL.Text:='Update detals set str_id='''+IntToStr(cnt+1)+''', izdel_id=izdel_id, detal_id=detal_id,detal_name=detal_ name,detal_kol_izd=detal_kol_izd,po kr_name=pokr_name,detal_info=detal_ info where str_id='+Form1.DBGrideh2.Columns[0].Field.AsString;
ZQuery2.ExecSQL;
Form1.ZQuery2.Refresh;}
end;
#
Мне нужно написать вместо exit, то, что запретит выполнение дальнейшего кода и закроет форму, но при этом будут работать другие формы приложения

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#", а не значка.
Вы не знали? Почитайте правила раздела...
Модератор

[Пепел Феникса]

перед копированием поставьте русскую раскладку.

и для кого сделан?

[ImmortalAlexSan]

Тема закрыта. А делается это очень просто: через метку. А вы этого объяснить не смогли, а просто придераетесь к и так понятному вопросу... Пытался тэгом оформить код, вот и поставил #

[spamer]

ImmortalAlexSan, что вам не понятно было из того, как показал Пепел Феникса ? Вроде там все доступно написано...
А метки - это ну ооочень уж не удобно.

[Пепел Феникса]

метки плохой тон.
просто вы задайте вопрос нормально.

чтоб прервать исполнение кода есть exit;
есть условные операторы.

[ImmortalAlexSan]

Да ваш exit, уважаемые, в этом коде не работает!

19:05

Простите за дерзость... Из сил уже выбился с этой прогой...

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор