Cita:
Empezado por MartinS
Hola: No se si te sirve o es lo que andas buscando pero lo siguiente te muestra que es lo que esta en mayuscula
Código Delphi [-]function Mayuscula(Cad: string): string; var i: Integer; begin for i:= 1 to Length(Cad) do if (Cad[i] in ['A'..'Z']) or (Cad[i] in ['0'..'9']) then Result:= Result + Cad[i]; end;
|
Hola Martins, en caso de que una palabra sin mayúsculas tenga algún número, también lo tomaría en cuenta.
ZayDu, todo depende de las condiciones que tengas en tu cadena para hacer los controles, tomando en cuenta que dices que son de 5 caracteres, podríamos tomar en cuenta solo esas palabras:
Código Delphi
[-]
sl := TStringList.Create;
sl.Delimiter := #32;
sl.DelimitedText := cad;
for i:=0 to sl.Count-1 do
begin
if (Length(sl[i])=5) then
begin
if (sl[i][1] in ['A'..'Z']) then
showmessage(sl[i])
else
for j:=1 to 5 do
begin
if (sl[i][j] in ['A'..'Z']) then
begin
showmessage(sl[i]);
break; end;
end;
end;
end;
Saluditos