[Chel2023]

Фрумчане можно проделать подобную штуку, если да, то как
Идет цикл, в начале цикла проверется состояние компонента МЕМО, дальше идут разные манипуляции и в конце еще раз проверяется компонента МЕМО и если он изменился с момента первой проверки, цикл повторяестя?

[xchgeaxeax]

Поставьте перед проверкой в конце цикла Application.ProcessMessages и устанавливайте флаг в событии OnChange.

P.S. По вашему описанию цикла следует, что проверка компонента производится дважды на каждой итерации цикла. Зачем?

Код:

1 2 3 4 5 6 7 8

buffer := Memo1.Text; // Сохранили текст из TMemo в локальную переменную if buffer <> '' then repeat // Начинаем цикл, если буфер не пустой (проверка в начале, перед циклом)   // Какие-то действия с buffer   temp := buffer; // Сохранили предыдущий буфер   buffer := Memo1.Text; // Получили информацию из компонента (однократно за итерацию обращаемся к компоненту) until (buffer = temp) or (buffer = ''); // Проверили на изменения или опустошение (первичное условие) // buffer = temp  это проверка на наличие изменений в тексте // buffer = ''  это первичное условие входа в цикл

или так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

change := true; // Устанавливаем флаг для входа в цикл // или так // change := Memo1.Text <> ''; while change do begin   buffer := Memo1.Text; // сохраняем данные из компонента в буфер   change := false; // сбрасываем флаг изменения компонента   // Какие-то действия с buffer   Application.ProcessMessages; // Обработали сообщения (по сути вызвали OnChange, если были изменения в Memo1) end; // ... procedure TForm1.Memo1Change(Sender: TObject); begin   change := true; // Установили глобальный флаг end;

Но если возникла необходимость работать в цикле с графическими компонентами, тогда лучше цикл развернуть в событие по таймеру. Так компонент будет успевать принять изменения, которые может вносить пользователь или другая программа.

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Memo1Change(Sender: TObject); begin   Timer1.Enabled := False; // Остановили таймер   Timer1.Enabled := True; // Перезапустили. Нужно, чтобы пользователь успевал набирать текст, а не обрабатывалась каждая введённая с клавиатуры буква. Так при задержке в 500 мс надо вводить как минимум по 2 буквы в секунду, чтобы не началась обработка изменений. end;   procedure TForm1.Timer1Timer(Sender: TObject); begin    Timer1.Enabled := False; // Остановили таймер т.к. эту итерацию после изменений выполнили    // Какие-то действия с Memo1.Text после внесения изменений с клавиатуры end;

Каждый графический компонент работает с очередью сообщений Windows. Используя его как буфер в циклах вы дополнительно генерируете кучу не нужных сообщений для обновления интерфейса и взаимодействия между графическими компонентами.