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

[BESS]

задача состоит в следующем
выполняется цикл в котором проверяется условие если условие истенно то отобрадается форма а цикл должен быть остановлен ро тех пор пока форма не закроется (реакция пользователя)
иными словами должно получиться что то вроде messagedlg только с произвольной формой
как это реализовать?

[zetrix]

Вызывайте форму в цикле как модальную: form2.showmodal;

[Greblin]

Как вариант, вызываешь форму как модальную и присваиваешь нужное значение свойству ModalResult кнопки, которая закрывает форму

[sergey113]

Что-то я не понял как модальной формой приостановить цикл так, чтобы он потом продолжился с того места с которого была запущена форма....
У меня задача такая же как и автора темы .. Приостановить цикл ... чтобы пользователь выбрал да или нет и выполнилось несколко команд в зависимости от выобра. Попытался сделать это при помощи MessageDlg ...

А вопрос такой : Действительно ли цикл приостанавливается при выполнении MessageDlg ?


код у меня такой

DataModule4.Table1.Active:=True;
strvl:=Datamodule4.Table1.RecordCount;
strvl2:=Datamodule4.Table5.RecordCount;
Datamodule4.Table1.First ;
DataModule4.Table5.First;
for j:=0 to strvl2-1 do begin
swer:=Datamodule4.Table5.FieldByName('pug').AsString+Datamodule4.Table5.FieldByName('tech').AsString+Datamodule4.Table5.FieldByName('podkom').AsString+Datamodule4.Table5.FieldByName('certeg').AsString;
ch:=0;
for i:=0 to strvl-1 do begin
if swer= (DataModule4.Table1.FieldByName('pug').AsString+ DataModule4.Table1.FieldByName('tech').AsString+DataModule4.Table1.FieldByName('podkom').AsString)+Datamodule4.Table1.FieldByName('certeg').AsString then
begin
  ch:=ch+1 ;
  if MessageDlg('В базе уже есть строка'+DataModule4.Table1.FieldByName('pug').AsString+ DataModule4.Table1.FieldByName('tech').AsString+DataModule4.Table1.FieldByName('podkom').AsString+ Datamodule4.Table1.FieldByName('certeg').AsString+'  с трудоемкостью '+Datamodule4.Table1.FieldByName('trud').AsString+ 'Если будете изменять данные нажмите ОК', mtInformation , [mbOK , mbNo], 0)=mrOk then
  begin
 DataModule4.Table1.Edit;
 DataModule4.Table1.FieldByName('pug').AsString:=DataModule4.Table5.FieldByName('pug').AsString;
 DataModule4.Table1.FieldByName('tech').AsString:=DataModule4.Table5.FieldByName('tech').AsString;
 DataModule4.Table1.FieldByName('podkom').AsString:=DataModule4.Table5.FieldByName('podkom').AsString;
 DataModule4.Table1.FieldByName('certeg').AsString:=DataModule4.Table5.FieldByName('certeg').AsString;
 DataModule4.Table1.FieldByName('trud').AsString:=DataModule4.Table5.FieldByName('trud').AsString;
 DataModule4.Table1.Post;
  end;

[mihali4]

Действительно ли цикл приостанавливается при выполнении MessageDlg ?

Да, останавливается.
Проверить это вы можете сами, поставив точку останова на начало цикла и пройдясь по шагам...

[sergey113]

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

Да, останавливается.
Проверить это вы можете сами, поставив точку останова на начало цикла и пройдясь по шагам...

да я пока плохо владею инструментами отладки брейк могу поставить или там вывести сообщение тестовое.. как освою потестирую