Метод работы с Case

[Кольша]

Format(' %d:%.2d', [Alltime div 60, Alltime mod 60])

[mansuetudo]

N:=i div 60;
Label1.Caption:='У вас осталось '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд';

[m1zantrop]

спасибо

[m1zantrop]

туплю что то. не могу понять.

создал вторую форму, когда время кончается её перекидывает туда и хочу чтобы лэйбл выдавал что время (которое мы выбирали 5-10-15-20....ит.д) кончилось. форма грузит по истечению времени, а лейбл молчит, в чем дело, подскажет кто?)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i-1;
N:=i div 60;
Label1.Caption:='У вас осталось '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд';
ProgressBar1.Position:=i;
if i=0 then
begin
Timer1.Enabled:=false;
t:=Form2.ShowModal;
Form2.Label1.Caption:=' '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд, данные вам для... истекли.';
end;
end;

[Hacker19_90]

А вы

Form2.Label1.Caption:=' '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд, данные вам для... истекли.';

перенесите в
Form2.OnShow
Только сделайте чтобы N была доступна в unit Form2
или строки местами поменяйте

Form2.Label1.Caption:=' '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд, данные вам для... истекли.';
t:=Form2.ShowModal;

[BDA]

В дополнение к сказанному Hacker19_90.
У вас в N и i будут нули после завершения таймера.
Так что вы должны еще раз инициализировать i и N нужными числами.

[m1zantrop]

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

А вы

перенесите в
Form2.OnShow
Только сделайте чтобы N была доступна в unit Form2
или строки местами поменяйте

Form2.Label1.Caption:=' '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд, данные вам для... истекли.';
t:=Form2.ShowModal;

форма 2 не знает переменных N и i

[m1zantrop]

всё))) спасибо)

[m1zantrop]

имеется 6 вопросов через переменную ball 1 вопрос - 1 балл хочу вывести оценку. поправте кэйс который отвечает за оценку. А еще лучше подскажите как в процентах ставить балл. т.е например 80% от 100% это 4 30 и < это двояк.
Заранее спасибо.

procedure TForm1.Timer1Timer(Sender: TObject);
var gg: integer;
begin
i:=i-1;
N:=i div 60;
Label1.Caption:='У вас осталось : '+IntToStr(N)+' минут '+IntToStr(i-N*60)+' секунд';
ProgressBar1.Position:=i;
if i=0 then
begin
Case min.ItemIndex of
0: i:=300;
1: i:=600;
2: i:=900;
3: i:=1200;
4: i:=1500;
5: i:=1800;
6: i:=2100;
7: i:=2400;
8: i:=2700;
9: i:=3000;
10: i:=3300;
11: i:=3600;
12: i:=3900;
end;
begin
gg:=ball;
Case ball of
1,2: gg:=2;
3,4: gg:=3;
5: gg:=4;
6: gg:=5;
end;
N:=i div 60;
Timer1.Enabled:=false;
Form2.Edit1.Text:=' '+IntToStr(N)+' минут, отведённые для тестирования истекли!';
Form2.Edit2.Text:='Кол-во правильных ответов : '+inttostr(ball);
Form2.Edit3.Text:='Ваша оценка : '+inttostr(gg);
t:=Form2.ShowModal;
end;