[ryderx34]

1. Как в консольном приложении использовать таймер ?
2. Можно ли обновлять строки, т.е. заменить уже написанную строку, вместо того чтобы писать новую ?
3.Можно ли очистить окно от всех написанных ранее строк ?

[Aristarh Dark]

1. Да
2. Да
3. Да

[s0Creator]

2-3. Смотри здесь раздел DOS и Консоль

1.
- TTimer можно создать программно.
НО чтобы он срабатывал, надо перевести приложение в режим обработки сообщений и строить его практически по принципу работы с формами ( только экран у тебя будет черный и все делать в ручную ).

Код:

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 35 36 37 38 39 40 41 42 43 44 45 46

program console_test;   {$APPTYPE CONSOLE}   uses   SysUtils, Windows, Forms, ExtCtrls;   var   myTimer: TTimer;   count: Integer = 0;   type   TTimerImpl = class     class procedure DoOnTimer(Sender: TObject);   end;     { TTimerImpl }   class procedure TTimerImpl.DoOnTimer(Sender: TObject); begin   writeln('Timer is On');   Inc(count);   if count > 10 then   Application.Terminate; end;   begin   { TODO -oUser -cConsole Main : Insert code here }   myTimer := TTimer.Create(Application); //  try     myTimer.Interval := 500;     myTimer.OnTimer := TTimerImpl.DoOnTimer;     myTimer.Enabled := True;       with Application do       repeat         try           HandleMessage;         except           HandleException(Application);         end;       until Terminated; {  finally     myTimer.Free;   end; // } end.

- Создавать дополнительные потоки которые просыпаясь через заданый интервал ( sleep(milliseconds) ) будут что то делать, не забывая синхронизировать хотя бы вывод на экран.

Код:

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 35 36 37

program console2_test;   {$APPTYPE CONSOLE}   uses   SysUtils, Classes;   type   TMyThread = class(TThread)     procedure Execute; override;     end;     { TMyThread }   procedure TMyThread.Execute; var   count: Integer; begin   count := 0;   for count := 0 to 10 do   begin     if Terminated then       break;       sleep(500);     writeln('MyThread is On');   end;     halt; end;   begin   { TODO -oUser -cConsole Main : Insert code here }   TMyThread.Create(false);   sleep(10000); end.

Не забудь, что это только наброски для иллюстрации.