Как можно завершить программу в процессе её выполнения

@Mitchel Neselok · Регистрация: 06.02.2019

Author24 — интернет-сервис помощи студентам

Вот, например, я хочу, чтобы если выполнялось условие в первом For, то программа останавливала своё выполнения. Так как бывает, что условие первого и второго For выполняются и в процессе выполнения выскакивают две формы.

Delphi

 for i:=1 to n do
    begin
      if (strtoint(Cvet[i-1]))=255255255 then
        begin
          Form2.Show;
          Form1.Hide;
        end;
    end;
  for e:=1 to 4 do
    begin
      for i:=1 to n do
        begin
          if (strtoint(Cvet[i-1]))=cvet1[e] then k:=k+1;
        end;
      if k=0 then
        begin
          Form3.Show;
          Form1.Hide;
        end;
      k:=0;
    end;

@krapotkin · 25.04.2019, 09:22

создаете переменную
пишете в нее значение
проверяете значение перед тем как что то делать дальше

@Modesty · 25.04.2019, 09:36

Сообщение от Mitchel Neselok

программа останавливала своё выполнения

Delphi

exit

Если следующий цикл, то где то в начале второго цикла:

Delphi

1	if Form2.Showing then break;

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	25.04.2019, 09:22	2
	создаете переменную пишете в нее значение проверяете значение перед тем как что то делать дальше 0

	25.04.2019, 09:36

Как можно завершить программу в процессе её выполнения

Решение