Código Delphi [-] if LowerCase(S) = S then ShowMessage('Todo en minúsculas') else if UpperCase(S) = S then ShowMessage('Todo en mayúsculas') else ShowMessage('Hay minúsculas y mayúsculas');
if LowerCase(S) = S then ShowMessage('Todo en minúsculas') else if UpperCase(S) = S then ShowMessage('Todo en mayúsculas') else ShowMessage('Hay minúsculas y mayúsculas');