[Paskal]

Привет всем
возникла задачка нужно организовать паузу при выполнении цикла
сам цикл:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

procedure TForm1.Button1Click(Sender: TObject); var  i:integer; begin Panel1.Visible:=true;        IdSMTP1.Host:=Edit4.Text;            //Хост      IdSMTP1.Port:=StrToInt(Edit3.Text); //Порт      IdSMTP1.Username:=Edit1.Text;     //Логин      IdSMTP1.Password:=Edit2.Text;    //Пароль        IdMessage1.Body.Text:=Memo1.Text; //Текст письма      IdMessage1.From.Text:=Edit5.Text;  //От кого        IdMessage1.Subject:=Edit7.Text;    //AnsiToutf8(subject);       // IdMessage1.Recipients.EMailAddresses:=Memo2.Lines[1];//Кому       //for i := 1 to Memo2.Lines.Count do       Label16.Caption:=IntToStr(Memo1.Lines.Count);         For i:= 0 To Memo1.Lines.Count Do begin   IdMessage1.Recipients.EMailAddresses:=Memo2.Lines[i];//Кому      Gauge1.MinValue:=0;      Gauge1.MaxValue:=Memo1.Lines.Count;      IdSMTP1.Connect();      Gauge1.Progress:=Gauge1.Progress+1;      Label17.Caption:=IntToStr((Memo1.Lines.Count-i));      Label13.Caption:=Memo2.Lines[i];      if IdSMTP1.Connected = True then      IdSMTP1.Send(IdMessage1);      IdSMTP1.Disconnect; end ; Panel1.Visible:=false; Gauge1.Progress:=0; end;

Зар. Большое спасибо за совет

[angvelem]

Sleep, ProcessMessages.

[Paskal]

как я читал то sleep грузит процессор если я не ошибаюсь. Может есть другие варианты?

[angvelem]

Поиском пользоваться не пробовал?

[Paskal]

У меня на delphisources.ru поиск не работает пустая страница и пишет найдена циклическая ошибка. как то так вроде

[angvelem]

Вот, что даёт поиск:

Код:

1 2 3 4 5 6 7 8 9 10

procedure Delay(dwMilliseconds: Longint); var    iStart, iStop: DWORD; begin   iStart := GetTickCount;   repeat     iStop := GetTickCount;     Application.ProcessMessages;   until (iStop - iStart) >= dwMilliseconds; end;

и это, только один из вариантов.