Sleep Delphi

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

if q >= length(s)

Если q станет больше, чем длина строки, то будет Access Violation

[BDA]

Если q станет больше, чем длина строки, то будет Access Violation

Но такого не произойдет, т.к. таймер будет выключен уже при q, равном длине строки.
Согласен, что некоторая опасность есть - если будем изменять q еще где-либо.
Можно написать строгое равенство.

const
  s = 'Hello';

var
  q: integer;

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

procedure TForm1.FormPaint(Sender: TObject);
begin
  if q <= length(s) then
    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;

[McFrey]

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

[McFrey]

все разобрался, событие repaint к этому приводит

Огромное спасибо что откликнулись!)

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

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

все разобрался, событие repaint к этому приводит

Так получается, что проблема-то не устранена(?)

[McFrey]

Вадим Мошев, нет нет, дальше я сам уже все исправил, просто не вызываю перерисовку формы, а вызываю метод который просто выводит на форму символы, все работает)) еще раз большое спасибо

[apromix]

А на каком алгоритме остановился? На старом или на таймере?