Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Schleife läuft nicht korrekt


HenryHux - Sa 02.10.10 20:20
Titel: Schleife läuft nicht korrekt
Hi,

ich habe hier diese Schleife:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
  
repeat
  card1:=0;
  card2:=0;
  card3:=0;
  cardopp3:=0;
  readin1.Click;
  wait(500);
  readin2.click;
  wait(500);
  readin3.Click;
  wait(500);
  stop:=stop+1;
  if stop>50 then break;
until (card1>0and (card2>0and (card3>0and (cardopp3>0);

Wenn sie startet, läuft sie einmal korrekt bis zum Ende. Doch dann wiederholt sich nur noch readin3.click. und nicht mehr die beiden ersten. Wieso?


EDIT: War zu doof, und habe in readinclick3 noch eine Schleife gehabt :D
sry