Timer

[PAVEL315]

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ColorGrd, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Edit1: TEdit;
    Timer3: TTimer;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  name : string;
  time1 : Integer;
  time2 : Integer;
  time3 : Integer;
implementation
{$R *.DFM}
procedure TForm1.FormShow(Sender: TObject);
begin
 InputBox('Ââåäèòå èìÿ', 'Ââîäè ñþäà', name);
end;
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.

[Albenous]

по умолчанию все равны нулю

time1 := time1 + 1;
if time1 = 30 then
time1 := 1; // переменной присваивается значение 1 и всё. А дальше?
time2 := time2 + 1;
if time2 = 13 then
time2 := 1; //та же история
time3 := time3 + 1;

[SuperVisor]

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

по умолчанию все равны нулю
time1 := time1 + 1;
if time1 = 30 then
time1 := 1; // переменной присваивается значение 1 и всё. А дальше?
time2 := time2 + 1;
if time2 = 13 then
time2 := 1; //та же история
time3 := time3 + 1;

Куда смторим-то? А если так:

 
time1 := time1 + 1;
if time1 = 30 then time1 := 1;
time2 := time2 + 1;
if time2 = 13 then time2 := 1; 
time3 := time3 + 1;

Будь внимательней!!!!

[Speeker]

Может так?
time1 := time1 + 1;
if time1 = 30 then
Begin
time1 := 1;
time2 := time2 + 1;
end;
if time2 = 13 then
begin
time2 := 1;
time3 := time3 + 1;
end;

[zetrix]

Может так?

Неа, не так

[Albenous]

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

Куда смторим-то? А если так:

 
time1 := time1 + 1;
if time1 = 30 then time1 := 1;
time2 := time2 + 1;
if time2 = 13 then time2 := 1; 
time3 := time3 + 1;

Будь внимательней!!!!

Какая разница? переменной time1 присваивается единица после выполнения условия. И всё. Дальше процесса нет. 1 и в Африке 1. Вот если бы возвращалось к time1:=time1 + 1; , тогда другой разговор.
С time2 то же самое. Вот с time3 все нормально. Только условия нет. Но это не проблема.

[SuperVisor]

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

Какая разница? переменной time1 присваивается единица после выполнения условия. И всё. Дальше процесса нет. 1 и в Африке 1. Вот если бы возвращалось к time1:=time1 + 1; , тогда другой разговор.
С time2 то же самое. Вот с time3 все нормально. Только условия нет. Но это не проблема.

Это таймер!!!! Он имеет свойство повторять действия с определенным интервалом! А переменные time1, time2, time3 глобальные и инициализируются при запуске программы, т.е. становятся равными 0! Не зная брода, не суйся в воду...