[boxep]

не могу понять почему "j" не увеличивается в этом коде на единицу? Хочу что бы сосчитал 12 интервалов и остановился таймер, но он что-то не считает?

procedure TForm1.Timer1Timer(Sender: TObject);
var j:byte;
begin
begin
j:=0;
Label1.Caption:=Format('%d : %2d',[Min3 div 60, Min3 mod 60 ]);
Dec(Min3);
if Min3=0 then
PlaySound(PChar(ExtractFilePath(ParamStr(0)) + '1.wav'), 0, SND_ASYNC);
if Min3=0 then j:=j+1;
If j=12 then
timer1.Enabled:=false;
if Min3 < 0 then
begin
fl:=0-fl;
if fl=0 then Min3:=15
else Min3:=15;
label3.Caption:=inttostr(j);

[deltas]

Ну как он будет увеличиваться если вы его каждую секунду обнуливаете:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var j:byte;
begin
begin
j:=0;                 <-------------

З.Ы. и зачем два раза begin ?

[boxep]

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

Ну как он будет увеличиваться если вы его каждую секунду обнуливаете:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var j:byte;
begin
begin
j:=0;                 <-------------

З.Ы. и зачем два раза begin ?

ай, точно, вот я... даже не заметил, все пересмотрел, а перед носом не увидел. Спасибо!