Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - until repeat vereinfachen?
cl9wn - Sa 13.09.08 19:44
Titel: until repeat vereinfachen?
Hi, kann man diesen Quellcode irgendwie vereinfachen?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| repeat
ServerName := InputBox('Add Server', 'Servername', '');
until ServerName <> '';
repeat
ServerIP := InputBox('Add Server', 'IP-Address', '');
until ServerIP <> ''; |
Moderiert von 
Narses: Topic aus Sonstiges (Delphi) verschoben am Sa 13.09.2008 um 19:54
Tilman - Sa 13.09.08 19:49
Was willst du denn daran noch vereinfachen. Du kannst einen einzigen repeat..until Block verwenden - aber dann muss der Nutzer immer beide Eingaben tätigen auch wenn nur eine falsch ist xD
Gausi - So 14.09.08 11:06
Ich würde mir dafür eine einfache Form basteln, diese per ShowModal aufrufen und den OK-Button erst dann aktivieren, wenn beide Felder ausgefüllt sind.
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!