Ожидание вывода строки

[fanlis]

Здравствуйте. Думал, думал, чего-то в голову ничего не приходит.
Есть моя написанная программа, в ней есть Memo, в которое по мере необходимости выводятся сообщения: sMemo1.Lines.Add('...'); Они выводятся после нажатия каких-то кнопок, после расчетов и т.д. Бывает так, что выводятся несколько сообщений подряд. Я решил немного переделать программу, чтобы сообщения выводились не в Memo, а в Label и по одному. Принцип такой: Выводится сообщение в Label. Если нужно вывести новое сообщение, то программа ждет, когда я нажму на Label и только после этого выводит следующее сообщение.

Я сделал так:
Добавил процедуры

procedure TForm1.MemoAdd(str: string);
begin
  while sLabel.Caption<>'' do Application.ProcessMessages;
  sLabel.Caption:=str;
end;

procedure TForm1.sLabelClick(Sender: TObject);
begin
  sLabel.Caption:='';
end;

Заменил все строки типа sMemo1.Lines.Add('...'); на MemoAdd('...');
При нажатии на Label он очищается и следовательно можно выводить следующее сообщение.
Т.е. получается, что когда в программе встречается команда вывода сообщения и оно не очищено, то программа "застревает" в цикле и ждет нажатия на сообщение. Программа не висит и все хорошо, но этот цикл занимает процессор и это плохо. Может можно что-то другое придумать?

Фактически, допустим есть текст:

procedure .......
begin
  MemoAdd('ляляля');
  ....
  какие-то действия
  ...
  MemoAdd('еще ляля');
  ....
  какие-то действия
  ...
  MemoAdd('ляля');
end;

На каждом MemoAdd программа должна ждать нажатия мной на Label и только после этого продолжать выполнять процедуру. Но чтобы кроме нажатия на Label, я мог делать и что-то другое, например, закрыть программу.

[DIONISKA]

Можно добавлять сообщения в очередь и при необходимости вытаскивать оттуда, примерно так:

uses ..., System.Generics.Collections;
...
var
  Q:tqueue<string>;

...
procedure TForm.FormCreate(Sender: TObject);
begin
  q:=tqueue<string>.create;
end;

procedure TForm.FormDestroy(Sender: TObject);
begin
  freeandnil(q);
end;

procedure TForm.MemoAdd(str: string);
begin
  q.Enqueue(str);
end;

procedure TForm.LabelClick(Sender: TObject);
begin
 if q.Count>0 then Label1.Caption:=q.Dequeue;
end;

и даже костыли не нужны

[fanlis]

System.Generics.Collections - это что такое в uses?? Выдает ошибку.

и такую структуру в делфи не встречал никогда:
var
Q:tqueue<string>;

[Аватар]

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

такую структуру в делфи не встречал никогда

Потому, что XE

[Serge_Bliznykov]

fanlis, а Delphi у Вас какая?
Если старая (< XE ), то используйте банальный TSTringList:
объявите глобально:

var 
  TS : TStringList;

на FormCreate создавайте экземпляр класса:

procedure TForm.FormCreate(Sender: TObject);
begin
  TS:= TStringList.Create;
end;

остальное, как в примере от DIONISKA

[fanlis]

Ну в общем я понял вашу идею и, в принципе, ее можно применить, хотя это не совсем то, что я хотел.

Например, выполняется процедура

procedure .......
begin
  MemoAdd('Привет');
  ....
  расчеты
  ...
  MemoAdd('В результате расчетов получилось то-то');
  ....
  какие-то действия
  ...
  MemoAdd('Если вы согласны с расчетами, нажмите Да, если нет, нажмите Нет');
  ButtonYes.Visible:=true;
  ButtonNo.Visible:=true;
end;

После ее выполнения я увижу сообщение "Привет" и две кнопки, которые я могу нажать, не зная зачем они. А остальные два сообщения будут ждать меня в очереди. Я нажимаю, допустим Да, начинаются другие расчеты и все сообщения сбиваются.
Мне бы желательно, чтобы программа останавливалась после сообщения "Привет". Потом я бы нажал на него, прочитал следующее, снова нажал и увидел бы кнопки и сообщение про эти кнопки.
Но при этом нельзя делать сообщение в виде модального окна, потому что помимо нажатия на сообщения я могу, например, сменить закладку в PageControl или закрыть вообще программу.

[evg_m]

1. разбить вычисления на несколько групп (блоков/ПРОЦЕДУР)
в конце которых выводить нужное сообщение. (куда и как угодно)
2. не ждать появления сообщения, а запускать КАЖДЫЙ блок по нажатию кнопки.
либо кнопке на каждый блок(процедуру) и блокировать (enabled:=false) при запуске
либо одна кнопка, НО иметь возможность УЗНАВАТЬ какую процедуру(блок вычислений) надо выполнять.

startbutton.tag=0; 1; .... (по завершении блока вычислений)

и при запуске

case button.tag of
0: 
2:
end;

сделали что смогли и спокойно ждем что еще попросит пользователь

потому что помимо нажатия на сообщения я могу, например, сменить закладку в PageControl или закрыть вообще программу.

P.S. вместо кнопки можно конечно же запускать и по Label.

LableMsg.tag:=0; 1; ....

но опять же только один нужный в данный момент блок.

[fanlis]

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

1. разбить вычисления на несколько групп (блоков/ПРОЦЕДУР)

вот как раз этого и не хотелось, точнее совсем не хотелось лазить по программе и переделывать ее. Она большая и готовая. Одно дело я автозаменой заменил sMemo1.Lines.Add на MemoAdd и дописал несколько процедур, а другое разбираться в программе и менять ее (разбивать все процедуры на блоки). Хотелось решить проблему "малой кровью".
Я так понимаю, именно того, чего я хочу, сделать невозможно, поэтому все предлагают обходные методы?

[evg_m]

вы хотите
ВЫПОЛНИТЬ остановку внутри процедуры без остановки.
а это невозможно.
процедуру можно остановить если
есть другая процедура которая ее может запустить снова (это будут параллельные процессы) но это опять ПЕРЕДЕЛКА. и ОПЯТЬ надо будет править ваш "большой код" чтобы он имел возможность остановки.

а разбиение делается почти(!) на автомате.
если вычисления (точнее точки вывода сообщений) образуют линейную последовательность.

в конце которых выводить нужное сообщение. (куда и как угодно)

1.начинаем сверху
2.находим сообщение
3.переносим все от начала до сообщения в отдельную процедуру
4.дописываем запуск данной(новой из п.2) процедуры.
5.если код исходный еще остался то п.1.

[DIONISKA]

такую структуру в делфи не встречал никогда

TQueue<T> - как выше отметили это в XE и выше, для D7 вроде был аналог в модуле "Concntrls", однако там свои тонкости.

потом я бы нажал на него, прочитал следующее, снова нажал и увидел бы кнопки и сообщение про эти кнопки.

На мой взгляд лучше убирать кнопки типа да/нет из ui и что мешает показать MessageDlg c 2-мя кнопками? Заодно это обезопасит от несвоевременного их нажатия. Например:

if mrYes=MessageDlg('Согласны с рассчётами?',mtwarning,[mbYes, mbNo],0) then 
showmessage('Вы выбрали "да"')
   else showmessage('Вы выбрали "нет"');

помимо нажатия на сообщения я могу, например, сменить закладку в PageControl или закрыть вообще программу.

у pagecontrol есть событие "OnChanging"

procedure PageControlChanging(Sender: TObject;
  var AllowChange: Boolean);

где в переменной AllowChange можно запретить/разрешить смену активной страницы.
Та-же история и с закрытием формы:

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

Здесь с помощью переменной CanClose можно запретить закрытие программы, или просто выводить сообщение вроде "Расчёты не окончены, закрыть программу?"
Также чтобы пользователь не запустил расчёты повторно можно создать процедуру (раз)блокировки UI (пройтись по всем кнопкам и присвоить enabled:=false/true), также для этих целей можно пользоваться атомами или критическими секциями.

Ps: первоначально это случаем не было консольным приложением?