Thema: Delphi return?

Einzelnen Beitrag anzeigen

Nils

Registriert seit: 8. Jun 2002
24 Beiträge
 
#4
  Alt 10. Jul 2002, 21:49
Ich würde das mit einer while-Schleife lösen
Code:
Table2.Open;
while Table2.FindKey([meld]) do
begin
MessageDlg('Name existiert schon.'+#13+' Neuen Namen eingeben?',
mtConfirmation, [mbYes,mbNo], 0) = mrYes then
begin
      meld:=inputbox('Eingabe','Bitte den Namen eingeben!','');
end;
end;
Irren ist menschlich - um die Sache wirklich ekelhaft zu machen, braucht man schon einen Computer
  Mit Zitat antworten Zitat