Ottchen - Do 05.12.02 20:33
Titel: Mit Repeat-Until Zahlen einlesen
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:
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.