Countdown/Timer

Sadece

Hallo,
Ich habe ein Problem mit meinem Countdown. Ich sitzte jetzt schon echt lange an dem kleinen code und weiss nicht mehr weiter. Ich habe versucht bei google eine Antwort zu finden aber ich finde einfach nichts. Vl suche ich falsch.
Kommen wir zum code:

#include <DateUtils.hpp>
#include <Dialogs.hpp>

TTime t1;
TTime t2;
TTime t3;
TTime t4;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	Label13->Visible = True;
	if (Timer1->Enabled)
		{
			Timer1->Enabled = False;
		}
	else
		{
			t1 = EncodeTime(0,1,20,0);
			Timer1->Enabled = True;
		}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
	t1 = IncSecond(t1, -1);

	Label13->Caption = TimeToStr(t1);
	if (SecondOf(t1) == 0)
		 {
		 Timer1->Enabled = False;
		 }
}

Ich arbeite mit Embarcadero RAD Studio 2010 und habe eine VCL-Formularanwendung erstellt. Der Timer geht von 00:01:20 runter und bleibt bei 00:01:00 stehen. Ich weiß nicht wo mein fehler ist. Könnt mir jemand helfen?

MFG Sadece

314159265358979

Der Fehler heißt VCL.

Sadece

Was ist den an VCL falsch? Ich verstehe dich nicht.

Michael E.

Sadece schrieb:

if (SecondOf(t1) == 0)
		 {
		 Timer1->Enabled = False;
		 }

Ich hab noch nie mit VCL gearbeitet, aber SecondOf(t1) wird wohl den Sekundenanteil von t1 liefern, sodass es auch dann 0 ist, wenn der Timer auf 1:00 Minuten steht, sodass der Timer deaktiviert wird.

Edit: BTW gibts ein VCL-Unterforum.

DocShoe

314159265358979 schrieb:

Der Fehler heißt VCL.

Langsam nervt´s... hast du da irgendwelche Erfahrungen mit der VCL, die dich zu dieser Aussage qualifizieren? Oder ist das, wie in letzter Zeit häufiger zu lesen, arrogantes Herabblicken auf Anfänger, die keine Probleme posten, die deinem Level entsprechen? Vielleicht einfach mal nix schreiben, wenn man nix Konstruktives beizutragen hat.