Sleep Delphi

[McFrey]

Доброго времени суток уважаемые программисты, есть код который выводит текст на канву

begin
  with Form1.Canvas do
  begin
    for q := 1 to N do
    begin
      TextOut(PenPos.X, PenPos.Y, a[q]);
      if PenPos.X + TextWidth(a[i]) > 250 then
      begin
        Form1.Canvas.MoveTo(Form1.Canvas.PenPos.X - (240 +TextWidth(a[i])), Form1.Canvas.PenPos.Y + 20);
      end;
     sleep(100);
    end;
  end;
end;

А каким образом вместо sleep можно здесь использовать таймер? А то при использовании sleep программа не реагирует ни на какие действия..

[Вадим Мошев]

Есть компонент, который называется таймер.
Задаёте интервал, потом пишете обработчик этого таймера, который будет вызываться каждый раз по истечении заданного интервала. В обработчике делаете нужные действия.

[McFrey]

Вадим Мошев, знаю, обработчик делаю, и кнопочку, не могу связь понять, когда на кнопку нажимаю то пусть Timer.Enabled:=true; должен же таймер выполниться?....а в обработчик таймера вставляю свой код который выше, но все выводится как бы за один раз а не посимвольно

[apromix]

В приведенном коде обрабатывай сообщения Application.ProcessMessages; и таймер не будет нужен. Обычно для такого дела таймер не используется.

[Вадим Мошев]

не могу связь понять, когда на кнопку нажимаю то пусть Timer.Enabled:=true; должен же таймер выполниться?.

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

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

Интервал какой?
Кстати, цикл в обработчике вам не нужен будет.

Вообще, что у вас делает программа? Печатает текст посимвольно?

[McFrey]

begin
  with Form1.Canvas do
  begin
    for q := 1 to N do
    begin
      TextOut(PenPos.X, PenPos.Y, a[q]);
      if PenPos.X + TextWidth(a[i]) > 250 then
      begin
        Form1.Canvas.MoveTo(Form1.Canvas.PenPos.X - (240 +TextWidth(a[i])), Form1.Canvas.PenPos.Y + 20);
      end;
     sleep(100);
   application.ProcessMessages
    end;
  end;
end;

apromix, Вот так? Тогда косячит просто программа выполняется не могу закрыть её

[McFrey]

Вадим Мошев, да просто посимвольно выводит текст на канву, а почему цикл в обработчике не будет нужен? ....я же из массива просто в этом цикле вывожу каждый символ с задержкой....
интервал и 100 и 10000 результат такойже т.е. спустя какое то время (100 мсек или 10000 мсек) на экране появляется текст сразу целиком

[apromix]

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

begin
  with Form1.Canvas do
  begin
    for q := 1 to N do
    begin
      TextOut(PenPos.X, PenPos.Y, a[q]);
      if PenPos.X + TextWidth(a[i]) > 250 then
      begin
        Form1.Canvas.MoveTo(Form1.Canvas.PenPos.X - (240 +TextWidth(a[i])), Form1.Canvas.PenPos.Y + 20);
      end;
     sleep(100);
   application.ProcessMessages
    end;
  end;
end;

apromix, Вот так? Тогда косячит просто программа выполняется не могу закрыть её

Покидай Application.ProcessMessages; в разных местах цикла Хотя мне кажется нужно перед отрисовкой. А лучше бы прикрепил код.

[Вадим Мошев]

да просто посимвольно выводит текст на канву, а почему цикл в обработчике не будет нужен?

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

объявляем глобальную переменную k и задаём ей значение 1

Обработчик таймера с интервалом, например 200 мс
	начало
		вывести символ с номером k на канву;
		увеличить k на 1 (inc(k))
		
		Если k = длинна строки (это последний символ)
			выключить таймер
	
	конец

[BDA]

Алгоритм Вадима Мошева.

const
  s = 'Hello';

var
  q: integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  q := 0;
  Timer1.Enabled := true;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  canvas.TextOut(10, 10, copy(s, 1, q));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(q);
  if q >= length(s) then
    Timer1.Enabled := false;
  repaint;
end;

Только текст сам не сотрется при повторном нажатии кнопки.