Ver Mensaje Individual
  #1  
Antiguo 27-02-2009
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.126
Reputación: 18
kurono Va por buen camino
problema al comparar

hola amigos tengo un problema tengo dos edit1.text en donde el cual comparo si los caracteres o letra son iguales si son iguales me lanza un mensaje de lo contrario me ejecuta otro codigo el cual verifica si hay un edit vacio si lo hay me lanza otro mensaje todo bien hasta ahi el problema esta cuando los dos edit estan vacio el me lanza el primer mensaje el cual debe salir si los dos caracteres son iguales para que entiendan mejor lo q digo le muestro el codigo
Código Delphi [-]
var
  entero:Integer;
begin
    if edOrigen.Text=edDestino.Text then
  Application.MessageBox(' No se puede Guardar el Archivo con el mismo Nombre','Error',mb_iconError)
  else
  if edOrigen.Text='' then
   Application.MessageBox('Elija un Archivo de Origen para Encriptar','Advertencia',MB_ICONWARNING)
          else
          if edDestino.Text='' then
           Application.MessageBox('Elija un Archivo de Destino para Encriptar','Advertencia',MB_ICONWARNING)
                  else
   if TryStrToInt(edOrigen.Text, entero)then
     Application.MessageBox('Debes Introducir una ruta valida','Error',MB_ICONERROR)
     else
     if TryStrToInt(edDestino.Text,entero)then
        Application.MessageBox('Debes Introducir una ruta valida','Error',MB_ICONERROR)
        else
  begin
       CifrarDescifrar(true);
          rest.Lines.LoadFromFile(guardar.FileName);
         end;
end;
Responder Con Cita