Остановить цикл или завершить программу.

[Зод]

Есть форма, на ней кнопка. На кнопке повешан цикл типа :

 For i:=1 to Memo3.Lines.Count do
 begin
  if Length(Memo2.Text) = 0 then
   begin
   break;
   Application.Terminate;
   end;
  if Length(Memo3.Text) = 0 then
   begin
   break;
   Close;
   end;
 B1(self);
 end;

Ставил без break, убивается программа только через раз и то тасккиллом что не есть правильно. Собственно вопрос как убить эту программу когда Memo2 или Memo3 станет пустым?
P.S.
в В1 там код отправки в сеть.

[Stilet]

Извиняюсь, а что это за ересь, и для чего она написана?

[C_R_E_S_C_H]

В обработчике события MemoChange пишешь такой код

if length(Memo.Text)=0 then
begin
Form1.Close;
end

можно еще вынести этот код в отжельную функцию и вызывать из MemoChange 2 и 3 мемо

И вопрос один имеется почему бы не начать писать код там где ему это полагается?

[Зод]

Сообщение от Stilet

Извиняюсь, а что это за ересь, и для чего она написана?

А какая разница для чего? Ну скажем чекер это и что суть изменилась? и причем здесь ересь? Ни Close ни Terminate ни Break не работает. Как мне прописать завершение я спросил где ересь? Первый раз что бы окончание цикла задается количеством строк или основной код выносится в отдельную процедуру?

Сообщение от C_R_E_S_C_H

В обработчике события MemoChange пишешь такой код

if length(Memo.Text)=0 then
begin
Form1.Close;
end

можно еще вынести этот код в отжельную функцию и вызывать из MemoChange 2 и 3 мемо

А вот по поводу функции можно поподробнее? Я считал что задать номер Memo не реально...ну вот так скажем Memo + i .Text Там же разные цифры идут..
К слову эта конструкция то же не работает.
Если смотреть по шагам то там условие выполняется и программа переходит к закрытию формы только не закрывает. Код Form1.Close выполняет но безрезультатно.

[Stilet]

Вот ересь:

For i:=1 to Memo3.Lines.Count do
begin
...
if Length(Memo3.Text) = 0 then

Если Memo3.Text пуст то тело цикла никогда не выполнится.
И потом: правильно будет - to Memo3.Lines.Count - 1

[Зод]

А там код выше есть. Условие так что если Memo3 будет пустым цикл не запустится.
А про -1 там же цикл от 1 до Count стоит а не от 0. Так что ровно столько раз сколько и строк и будет. Просто i программе не нужна поэтому так поставил. Смысл то не меняется или я не прав?

[Stilet]

там же цикл от 1 до Count стоит а не от 0.

Это не имеет значения. Ты сдвинул границы, чего делать нельзя. Пиши Count-1.

[C_R_E_S_C_H]

Сообщение от Зод

А вот по поводу функции можно поподробнее?

А нафиг тебе номер мемо?
ты пишешь в обработчике события для мемо т.е. если у тебя изменяется количество символов в мемо срабатывает код который я приводил выше а про функцию я сказал для того чтобы по 2 раза одно и то-же не писать в 2х местах просто делаешь функцию без входных данных а на выходе ставишь булевую переменную а в теле функции ставишь код который выше а в обработчике КАЖДОГО мемо вставляешь эту функцию и все

А когда у тебя цикл остановится должен?

И скиь сюда исходник программы так лучше будет

Кстати в мемо нумерация строк с 0 начинается т.е. у 1 строки индекс 0 у 2-ой строки 1 и.т.д. так-что правильно строчка будет выглядеть так

For i:=0 to Memo3.Lines.Count-1 do

т.к. Memo3.Lines.Count это число строк в мемо и функция у тебя всегда оставляла 1 строку в мемо т.к. i было равно 1

[Кольша]

В обработчике события MemoChange пишешь такой код

if length((sender as Tmemo).Text)=0 then
Form1.Close;

не?

[Зод]

Сообщение от Кольша

В обработчике события MemoChange пишешь такой код

if length((sender as Tmemo).Text)=0 then
Form1.Close;

не?

не, не работает. Условие выполняется а программа не закрывается. Раньше все это работало а сейчас даже не знаю в чем проблема.

Сообщение от C_R_E_S_C_H

А нафиг тебе номер мемо?
ты пишешь в обработчике события для мемо т.е. если у тебя изменяется количество символов в мемо срабатывает код который я приводил выше а про функцию я сказал для того чтобы по 2 раза одно и то-же не писать в 2х местах просто делаешь функцию без входных данных а на выходе ставишь булевую переменную а в теле функции ставишь код который выше а в обработчике КАЖДОГО мемо вставляешь эту функцию и все

А когда у тебя цикл остановится должен?

И скиь сюда исходник программы так лучше будет

Кстати в мемо нумерация строк с 0 начинается т.е. у 1 строки индекс 0 у 2-ой строки 1 и.т.д. так-что правильно строчка будет выглядеть так

For i:=0 to Memo3.Lines.Count-1 do

т.к. Memo3.Lines.Count это число строк в мемо и функция у тебя всегда оставляла 1 строку в мемо т.к. i было равно 1

По сути когда возникнет условие. Либо Memo2 либо Memo3 пустым станет. Я ставлю цикл отталкиваясь от Memo2 к примеру тогда пустым оно не будет работать но мне нужно контралировать сразу два Memo а все попытки завершить остановить цикл не работают. Просто программа вызывается другой прогой и должна сама завершаться. Как бы расписание что ли. Например первая прога будет запускать вторую каждые 15 минут а если вторая не будет завершаться то и смысла нет в этом. Весь код в один исходник сливать не хочу там функционнал совсем разный.
Ну так я i не использую. У меня нет в коде конструкции типа Memo3.Lines[i] ну с этим понятно, завершиться бы еще)