Delphi zählt flasch

[citybreaker]

Hallo,

ist das normal das Delphi falsch zählt?
Hab folgendes gemacht:

Delphi-Quellcode:

...

var: 
 Form1: TForm1;
 Punkte: Integer = 1;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CheckBox1.Checked = true then
    Punkte := Punkte +1
  else 
    Punkte := Punkte -1;
  Label1.Caption := IntToStr(Punkte);
end;

Wenn er Eins abzieht kommt da -1 raus. Woran liegt das?

[fkerber]

Hi!

Also bei mir geht das eigentlich richtig!
Komisch.

Ciao fkerber

[phlux]

Also bei mir zählt der einwandfrei runter.

[himitsu]

Bei mir auch.

Lad' doch notfalls mal dein Programm hoch.

PS:
Entweder wird bei dir die Variable (Punkte) nicht richtig installiert (Punkte = 0), oder die Procedure (Button1Click) wird doppelt ausgeführt.

[r_kerber]

Hast Du mal überprüft, welchen Werte Punkte vor der if-Abfrage hat?

[Stanlay Hanks]

Das kann eigentlich nur passieren (nur beim ersten mal und wenn punkte als 1 initialisiert wird) wenn die Prozedur zweimal mit einer deaktivierten Checkbox aufgerufen wird...

[citybreaker]

Naja das mit der Checkbox war nur ein Beispiel.
Ich häng das Programm mal in den Anhang. Wenn man
einen neuen Kontakt einträgt und ihn dann wieder löscht
steht da -1 .

--- Edit ---

Alles stop, komischer weise klappt es jetzt.
Gersten hat er mir immer -1 angezeigt jetzt
zeigt er auch 0 an. Komisch.

Anhang entfernt

[F.W.]

lol

Bei mir ist mal was passiert, was man damit vergleichen kann.
War ziemlich groß der Quellcode... Delphi zeigte immer Fehler beim Compilieren an, ich habe alles nochmal neu- (/ABGE-) schrieben -> Da hat's geklappt