Hallo zusammen.
Ich habe eine While geschrieben die per Button click ausgeführt werden soll und später bei Eingabe in das oberste Edit.
Jetzt ist es so das wenn ich sie zu Test starten will, um zu sehen ob es so funktioniert stürzt das Programm ab. Leider weiß ich nicht wo ran es liegen könnte.
Ich Arbeite mich grade in Delphi ein und habe schon in verschiedenen Forums nach einer Lösung geschaut aber nix gefunden. Erklärungen wie die Schleife aufgebaut ist habe ich mir durch gelesen und so wie ich das verstanden habe sollte es ja funktionieren.
Für den Fall das es wichtig sein sollte, ich verwende Delphi XE2
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
Edit1.Text:=IntToStr(a+1);
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
//Beispiel was bei erreichen der Zahl 3 pasieren sollte
begin
if Edit1.Text='3' then
Edit2.Text:=('3')
else
Edit2.Text:=('0');
end;
end.
Danke schon mal.