Mit Repeat-Until Zahlen einlesen

Ottchen · Beiträge: 43

Ich möchte mit einer repeat-until-Schleife folgendes Problem lösen:

Mittels Edit-Feld sollen Integer-Zahlen eingelesen werden und deren Summe solange berechnet und in einem Panel z.B. ausgegeben werden, bis die eingegebene Zahl negativ ist.

Wie löst man das Problem praktisch in Delphi? Weist man das Einlesen einem OnClick-Ereignis vom Button zu? Oder gibts da andere Möglichkeiten? Wie kommt man aus der Schleife raus?

z.B. dieses selbst ausgedachte hier funktioniert nicht:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var zahl, summe, i: integer;

begin
  zahl:=StrToInt(Edit1.Text);
  summe:=0;
  i:=0

  repeat
    summe:=summe+zahl;
    i:=i+1;
  until zahl<0  

end;

Danke! Ottchen

(05.12. 22:55 Tino) Code-Tags hinzugefügt.

_________________
See you.

Gast Erhaltene Danke: 1

Versuchs mit OnExit von Edit. Wird jedes mal ausgeführt bevor du auf den Button klickst.

Ottchen · Beiträge: 43

Ansonsten ist der Quelltext in Ordnung?

Zitat:

Versuchs mit OnExit von Edit. Wird jedes mal ausgeführt bevor du auf den Button klickst.

Ottchen[/quote]

_________________
See you.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme