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;