Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.490 Beiträge
 
Delphi 7 Professional
 
#8

AW: Programmabsturz, aber warum

  Alt 11. Mai 2018, 20:58
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;
  Mit Zitat antworten Zitat