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;