Programm Hilfe

[DeddyH]

Zum Vergleich:

Delphi-Quellcode:

  zahl3 := 0;  //zahl3 vorbelegen, sonst steht irgendwas drin
  zahltext := Edit1.text; //hier einmalig auf das Edit zugreifen
  repeat
    (* viel Code
       ... *)
    differenz := zahl1 - zahl2;
    zahltext := IntToStr(differenz); //hier neu zuweisen
  until differenz = 6174;  //differenz auswerten, nicht den Zähler
  edit2.text := IntToStr(zahl3);