Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Schritt zurück bei falscher Eingabe


goog - Mi 16.03.05 20:50
Titel: Schritt zurück bei falscher Eingabe
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?


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 - Mi 16.03.05 20:57
Wie wär's mit ner Schleife?? ;)


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;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!