Timer

[PAVEL315]

У меня маленькая проблема

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 time1 := time1 + 1;
 if time1 = 30 then
 time1 := 1;
 time2 := time2 + 1;
 if time2 = 13 then
 time2 := 1;
 time3 := time3 + 1;
 Edit1.Text := IntToStr(time1);
 edit2.Text := IntToStr(time2);
 edit3.Text := IntToStr(time3);
end;
end.

У меня получается, что В Edit1, Edit2, Edit3 числа заполняются одинаково. Кстати, time1,2,3 : Integer. Как исправить такой глюк???

[SuperVisor]

А как ты хотел? Это - не глюк, это - недароботка!!! При первом вызове таймера переменные скорее всего неинициализированы и приравниваются к нулю... А ты в свою очередь при каждом ходе начинаешь их наращивать....

[PAVEL315]

Допустим. Тогда как исправить?????

[SuperVisor]

Вопрос состоит в другом: что ты хочешь от этого таймера?

[Nemon]

Ты сначала переменные timer1(2,3) объяви

[SuperVisor]

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

Ты сначала переменные timer1(2,3) объяви

Не стоит быть столь ужасного мнения о человеке: он говорит что они наращиваются одинаково, значит они инициализированны и наверняка объявлень до этого...

[Nemon]

procedure TForm1.Timer1Timer(Sender: TObject);
var
time1: integer;
time2: integer;
time3: integer;

begin
time1 := time1 + 1;
if time1 = 30 then
time1 := 1;
time2 := time2 + 1;
if time2 = 13 then
time2 := 1;
time3 := time3 + 1;
Edit1.Text := IntToStr(time1);
edit2.Text := IntToStr(time2);
edit3.Text := IntToStr(time3);
end;

end.

У меня разные выводит...
Если ты только раньше их объявил, тогда содай переменные и приравняй их к тем, что объвил ранее

[SuperVisor]

Проблема в том, что сначала-то они одинаковые. Верно?

[PAVEL315]

Они у меня глобальные. Нужно ещё и для других нужд, нехочется много раз писать...

[Nemon]

Ну так приравняй внутренние к глобальным, а потом если надо-то обратно. Или тебе так не подходит?
Тогда давай полный исходник