Ver Mensaje Individual
  #6  
Antiguo 30-09-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Algo como:

Código Delphi [-]
Ingresar(Edit1.Text, Tabla);
Ingresar(Edit2.Text, Tabla);

if not DatoValido(Edit3.Text) then
begin
  Edit3.SetFocus;
  raise Exception.Create('Usted ha puesto un valor incorrecto. Ponga atención y corríjalo');
end;

{ Si el valor es incorrecto esto no se ejecutará }
Ingresar(Edit3.Text, Tabla); 
Ingresar(Edit4.Text, Tabla);

// Saludos
Responder Con Cita