Timer... - Общие вопросы Delphi - Страница 2

Stilet · 11.10.2007, 12:48

Roof, Извини сразу не пояснил )

mihali4 · 11.10.2007, 12:57

Цитата:

procedure TForm1.Timer1Timer(Sender: TObject);
var s:integer;
begin
inc(s); //S увеличиваем на 1
Label1.Caption:=IntToStr(s);
end;

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

11.10.2007, 12:48	#11
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Roof, Извини сразу не пояснил ) I'm learning to live...