Valor Boton Ok,Cancelar de un InputBox

[Alejandro73]

Estimados

Buenas tardes, mirando por ahí encontré que el valor de una variable a la que se le asigna un inputbox es vacío cuando se presiona el botón cancelar.

Tengo que solicitar un dato mediante un inputbox hasta que este sea válido o bien se presione el botón cancelar y mi problema radica en que cuando presiono el botón Ok y no ingreso valor al edit del inputbox también me devuelve el valor vacío y para este caso debo volver a solicitar el ingreso del dato que esta entre:

Código Delphi [-]
repeat      
  valor:=inputbox('Titulo','Dato a recibir','');    
  validacion......  
until unacondicion

Alguien sabe porque condición se debe preguntar para saber cuál botón se presiono en el inputbox

Desde ya muchas gracias

[ecfisa]

Hola Alejandro.

Si interpreto bién lo que estas buscando creo que podes hacer:

Código Delphi [-]
var
  valor : string;
  ok : Boolean;
begin
  repeat
    valor := inputbox('Titulo','Dato a recibir','');
    ok    := valor = 'un texto';  // una validación cualquiera
  until ok;
...

Saludos

[Caminante]

Tal vez algo asi:

Código Delphi [-]
repeat      
  valor:=inputbox('Titulo','Dato a recibir','');    
  validacion......  
until Trim(valor)<>''

Espero te sea util

Saludos

[Alejandro73]

Estimados

Gracias por responder, pero como dije al principio mi problema radica en que si presiono el botón ok del input y no ingreso texto alguno se debe seguir con la secuencia del repeat .. until, ya que lo único que puede terminar este proceso es el botón cancelar o bien el botón ok con un dato.

Pero no sé cómo validar cuando se presiona el botón ok y el valor del imput es vacío.

Saludos

[cloayza]

Usa inputQuery...

Código Delphi [-]
var
  valor : string;
  ok, lDone : Boolean;
begin
     repeat
          lDone := InputQuery('Titulo','Dato a recibir',Valor);
          ok    := valor = 'un texto';  // una validación cualquiera
     until lDone=False or ok;
end;

Saludos cordiales

[Alejandro73]

Estimado

Muchas gracias, era lo que necesitaba.