Schleife wird nicht unterbrochen

[vip11]

hi ich hab ein problem:
bei mir wir bei dem folgenden quellcode eine dauerschleife ausgelöst die die maus immer weiter nach links bewegt. eigentlich sollte es mit der maus ein gitter mit xf * yf feldern ablaufen.

Delphi-Quellcode:

begin
  mx:= Mouse.CursorPos.X;
  my:= Mouse.CursorPos.Y;
  s:= 0;
  x:=0;
  y:=0;
  xf:= strtoInt(Edit1.text);
  yf:= strtoInt(Edit2.text);
  repeat //y
  repeat    //x
  if s=0 then begin
  SetCursorPos(mx+40,my);
  mx:= Mouse.CursorPos.X;
  my:= Mouse.CursorPos.Y;
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  sleep (100);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  end else if s=1 then begin
  SetCursorPos(mx-40,my);
  mx:= Mouse.CursorPos.X;
  my:= Mouse.CursorPos.Y;
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  sleep (100);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  end;
  x := x +1;
  until x = xf;             //x
  SetCursorPos(mx,my-40);
  mx:= Mouse.CursorPos.X;
  my:= Mouse.CursorPos.Y;
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  sleep (100);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  if s =1 then
  begin
  s:= 0
  end
  else if s=0 then
  begin
  s:= 1;
  end;
  y := y+1;
  until y = yf     //y
  end;
end;

könnte mir jemand sagen wo mein fehler liegt?

[hoika]

Hallo,

abgesehen von Augenkrebs (Formatierung !!!)

Delphi-Quellcode:

  
  if s =1 then
  s:= 0;

  if s=0 then
  s:= 1;

Das macht keinen Sinn.
Ist s=1 wird es zu 0, dann wieder zu 1.

Was das gemeint ?

Delphi-Quellcode:

  
  if s=1 then
  begin
    s:= 0;
  end
  else
  begin
    if s=0 then   
    begin
      s:= 1; 
    end;
  end;

#Update:'
Ha, wurde schon geändert.
Was sagt denn der Debugger dazu ?.


Heiko
PS:
Mit 0 und 1 ginge es auch einfacher, jaja.

[Luckie]

Eventuell hilft es schon, wenn du einfach deinen Quellcoe etwas formatierst, dass man ihn auch lesen kann. Ich fraghe mich sowieso, wie du da den Überblick behalten kannst - oder eben auch nicht.

[vip11]

programm funktioniert ja aber eben nicht wie ich will^^
also es geht mit der maus die in xf eingetragenen felder nach rechts, dan eins nach unten und dan unbegranz viele nach links obwohl es nur die xf felder nach links gehen sollte und dan wieder 1 nach unten (bis es yf nach unten gegangen ist) wo ist der fehler????

Edit: thx formatieren hat wiklich etwas gebracht, musste nur x wieder zurücksetzten weil sont das repeat ewig weiterläuft