Schritt zurück bei falscher Eingabe

goog · Beiträge: 37

Hi Leute

Ich lasse über Inputbox mehrere Werte eingeben.
An einer Stelle dürfen alle Zahlen außer Null eingegeben werden.
Wenn jetzt ne Null eingegeben wird dann --> showmessage('Wert muss ungleich Null sein!')
Es soll jetzt so oft die Inputbox erscheinen, bis ein gültiger Wert eingegeben wird.
Wie kann ich das machen?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

for i:=1 to n do                                                   
  begin
   a[i]:=StrtoFloat(Inputbox('Koeffizienten','Koeffizient von x^'+InttoStr(i),'1'));
   if a[n]=0 then showmessage('Dieser Wert darf nicht Null sein !!!');
   //...? 
  end;

gruß goog

WeBsPaCe · Verfasst: Mi 16.03.05 20:57

Wie wär's mit ner Schleife??

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

for i:=1 to n do                                                     
  begin  
   repeat
   a[i]:=StrtoFloat(Inputbox('Koeffizienten','Koeffizient von x^'+InttoStr(i),'1'));  
   if a[n]=0 then showmessage('Dieser Wert darf nicht Null sein !!!');  
   until a[n]<>0;
  end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme