La función InputBox() en Delphi es una forma fácil y conveniente de permitir al usuario ingresar información en una aplicación.
Esta función crea un diálogo que contiene un campo de entrada para el usuario, un botón con el texto OK y un botón Cancelar. El usuario puede ingresar información en el campo de entrada y luego hacer clic en OK para continuar o Cancelar para cancelar la operación.
La sintaxis para utilizar la función InputBox() es la siguiente:
InputBox(Título, Pregunta, ValorInicial)
Donde:
- Título es el título de la caja de diálogo.
- Pregunta es la pregunta o instrucción que se muestra al usuario.
- ValorInicial es el valor predeterminado que aparece en el campo de entrada.
Una vez que el usuario hace clic en OK, la función InputBox() devuelve el valor ingresado por el usuario. Si el usuario hace clic en Cancelar, la función devuelve una cadena vacía.
Ejemplos de la función InputBox() en Delphi
var
nombre: string;
begin
nombre := InputBox('Ingreso de nombre', 'Ingrese su nombre:', '');
ShowMessage('Hola ' + nombre);
end;
En este ejemplo, se utiliza la función InputBox() para pedir al usuario que ingrese su nombre. El título de la caja de diálogo es “Ingreso de nombre”, la pregunta es “Ingrese su nombre:” y el valor inicial es una cadena vacía. Una vez que el usuario hace clic en OK, el valor ingresado se almacena en la variable “nombre” y se muestra en un mensaje de bienvenida.
var
nombre: string;
begin
nombre := InputBox('Ingreso de nombre', 'Ingrese su nombre:', '');
ShowMessage('Hola ' + nombre);
end;
En este ejemplo, se utiliza la función InputBox() para pedir al usuario que ingrese su nombre. El título de la caja de diálogo es “Ingreso de nombre”, la pregunta es “Ingrese su nombre:” y el valor inicial es una cadena vacía. Una vez que el usuario hace clic en OK, el valor ingresado se almacena en la variable “nombre” y se muestra en un mensaje de bienvenida.
var
edad: Integer;
begin
edad := StrToInt(InputBox('Ingreso de edad', 'Ingrese su edad:', '0'));
ShowMessage('Usted tiene ' + IntToStr(edad) + ' años');
end;
En este ejemplo, se utiliza la función InputBox() para pedir al usuario que ingrese su edad. El título de la caja de diálogo es “Ingreso de edad”, la pregunta es “Ingrese su edad:” y el valor inicial es 0. Una vez que el usuario hace clic en OK, el valor ingresado se convierte en entero con la función StrToInt() y se almacena en la variable “edad”, luego se muestra en un mensaje “Usted tiene x años”
var
email: string;
begin
email := InputBox('Ingreso de correo electrónico', 'Ingrese su correo electrónico:', '');
if (Pos('@', email) = 0) then
ShowMessage('Ingrese un correo electrónico válido')
else
ShowMessage('Correo electrónico registrado: ' + email);
end;
En este ejemplo, se utiliza la función InputBox() para pedir al usuario que ingrese su correo electrónico. El título de la caja de diálogo es “Ingreso de correo electrónico”, la pregunta es “Ingrese su correo electrónico:” y el valor inicial es una cadena vacía. Una vez que el usuario hace clic en OK, se verifica si el correo electrónico ingresado contiene un signo “@” con la función Pos() y si no lo contiene se muestra un mensaje “Ingrese un correo electrónico válido” , si es correcto se muestra un mensaje “Correo electrónico registrado: “ junto con el correo electrónico ingresado.
La función InputBox() es una herramienta fácil y conveniente para permitir al usuario ingresar información en una aplicación de Delphi. Es especialmente útil para solicitar información simple, como un nombre o una dirección. Sin embargo, si necesitas validar la información ingresada o proporcionar opciones predefinidas, es recomendable utilizar un componente de entrada personalizado.