Programmabsturz, aber warum

[Hobbycoder]

Das hier

Delphi-Quellcode:

  while b<=0 do
     begin
       Edit1.Text:=IntToStr(a+1);
     end;

ist eine Endlos-Schleife.
Wenn b wirklich mal kleinergleich 0 ist, b aber innerhalb der Schleife niemals über 0 wird, wird die Schleife nie verlassen.

[Weber]

Die Variable b ist ja in Edit2 definiert, die zu begin 0 ist.
Es soll a so lange hoch gezählt werden das wie in meinem Beispiel beschriben ist, wenn die Zahl 3 erreicht ist das dan in dem Edit2 dan 3 stehen soll (nur ein beispiel) und wenn das der Fall ist soll die Schleife abgebrochen werden. Des halb verstehe ich jetzt nicht genau wie so das nicht funktioniert. Ich definiere ja am Schleifenbegin das das ja so lange ausgeführt werden soll bis b>0 sein soll.

[Delphi.Narium]

Wenn b zu Beginn der While-Schleife <= 0 ist, wie soll es dann geändert werden? Wo findet denn da eine Zuweisung statt, die jemals dazuführen könnte, dass die Bedingung b <= 0 nicht mehr zutreffend sein könnte und damit zum Schleifenabbruch führen würde? Erst wenn b > 0 ist, wird die Schleife verlassen. Da aber keine Zuweisung an b erfolgt, die den Wert innerhalb der Schleife ändern könnte, wird b einweder immer <= 0 bleiben oder bereits vor dem Schleifenaufruf > 0 sein. In diesem Fall wird die Schleife jedoch nicht durchlaufen.

[Weber]

ok jetzt verstehe ich das.
ich muss im Prinzib innehalb der Schleife schon angeben das wenn die Zahl 3 erreicht ist da mit sie abgebrochen wird.
Das heist für mich das ich das so nicht realiesiren kann. Kann mir jemand sagen bzw einen Tipp geben wie ich so eine "Dauerschleife" erzeugen kann die immer +1 zu a Addiert wird.

[Delphi.Narium]

Delphi-Quellcode:

while b<=0 do
  begin
    a := a + 1;
  end;

Nur, b bleibt immernoch unverändert. Du müsstest also auch mal definieren, wann b in welcher Form verändert werden soll.

Wenn wir mal das OnChange des Edits nehmen, soll vermutlich sowas in der Art dabei rauskommen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c:Integer;
begin
//String Umwandlung in Integer
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
//While-Schleife
  while b<=0 do
    begin
      a := a + 1;
      Edit1.Text:=IntToStr(a);
      if a = 3 then
      begin
        b := 3;
      end;
    end;
end;

[Weber]

Das hilft mir schon mal weiter. Danke

Ich probiere das morgen mal aus ob ich das so machen kann oder ob das dan an einer anderen Stelle hängen bleibt.

[freimatz]

vermutlich willst du nach
Edit1.Text:=IntToStr(a);
noch ein Edit1.Update haben und nach auch noch eine kleine Pause?