Zähler im Formular verwenden

Dieter37

Hallo,

ich würde gerne einen Zähler deklarieren, der das aktive Formular bei 30 schließt und sagen wir mal das Formular Impressum aufruft.
Der Anfangswert soll in einem Label angezeigt werden und der verbleibende Rest bis 0 soll in einem weiteren Label angezeigt werde.
Leider habe ich das Problem, dass erste Label zeigt mir den Startwert 30 an.
Aber bei meiner Schleife, zählt das Programm nicht runter.

Ich hoffe Ihr könnt mir weiterhelfen.

Gruß
Dieter

akari

Hallo

Aus deiner Beschreibung wird nicht klar, was genau eine Erhöhung des Zählers auslösen soll.

bis bald
akari

kiki_666

Naja also viele Informationen gibst du uns echt nicht.
Ich würde mal vermuten, dass du versucht direkt den Inhalts des Labels hochzuzählen. das kann natürlich nicht klappen, da die Variable im Label ein AnsiString und kein Integer ist.

Also ich würde es so machen:

int counter=30;

void main()
{
  for(int i=0;i<=30;i++)
  {
     Label1->Text=IntToStr(counter);
     Label2->Text=IntToStr(counter-i);
     counter--;
     //hier dein gewünschen Code einbauen
  }
}

Kiki

akari

Hallo

@ kiki : da hat aber eine main() nichts verloren.

Ich vermute, Dieter geht es eher um die Zeitsteuerung. Wenn ja, dann soll er sich TTimer in der BCB-Hilfe anschauen.

bis bald
akari

kiki_666

@akari: Achso, ich glaube fast du hast recht. Hatte das vorher falsch verstanden. Dann wird das Ereignis wohl durch irgendein Button (oder ähnliches gestartet)!

Dieter37

Hallo,
ich danke euch für eure Hilfe.
Es geht mir nicht um eine Zeitsteuerung.

Gruß

Dieter

ser1al

jo er wird wohl soetwas meinen...

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(counter==0)
 Application->Terminate();

 counter--;
Label1->Caption = counter;
}

akari

Dieter37 schrieb:

Hallo,
ich danke euch für eure Hilfe.
Es geht mir nicht um eine Zeitsteuerung.

Gruß

Dieter

Schön... und um was geht es dir dann?!

bis bald
akari