until repeat vereinfachen?

cl9wn · Beiträge: 28

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 · Verfasst: 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

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)

Gausi · Verfasst: 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.

_________________
We are, we were and will not be.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme