Цитата:
|
Сообщение от deltas
Ну как он будет увеличиваться если вы его каждую секунду обнуливаете:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var j:byte;
begin
begin
j:=0; <-------------
З.Ы. и зачем два раза begin ? |
ай, точно, вот я... даже не заметил, все пересмотрел, а перед носом не увидел. Спасибо!