Delphi: ShowMessage mit Benutzereingaben

Ich habe heute einen kleinen Tipp für alle Nutzer von Delphi. Es geht um zwei Möglichkeiten, schnell und einfach Benutzereingaben zu bekommen und zu verarbeiten:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  //Erste Möglichkeit  
  repeat
    s := InputBox('Titel', 'Text', 'Starttext');
  until s <> '';

  //Zweite Möglichkeit
  if InputQuery('Titel', 'Text', s)
  then ShowMessage('Es wurde nicht abgebrochen.');
end;

Erste Möglichkeit: Die Funktion InputBox öffnet sich so ähnlich wie ein normales ShowMessage, mit dem einzigen Unterschied, dass auch Eingaben möglich sind. Als Parameter kann man eine Caption (im Beispiel "Titel"), einen Text und ein Startwert (Default) für den Benutzer Input angeben. InputBox gibt uns dann den String zurück, den der Nutzer eingegeben hat. Im obigen Beispiel rufen wir so lange die InputBox auf, bis der zurückgegebene String nicht leer ist.

Zweite Möglichkeit: InputQuery verhält sich so ähnlich wie InputBox. Die Rückgabe ist aber dieses Mal true oder false, je nachdem ob der Benutzer auf OK oder Abbrechen unter dem Dialog geklickt hat. Wieder können wir einen Titel und einen Text für die Box angeben. Der dritte Parameter ist ein String, der gleichzeitig den Anfangswert der Box darstellt und nach dem Aufruf auch den eingegebenen Wert enthält.