Buscar Mayusculas dentro de un string

[ZayDun]

Funciona como queria el unico "problema" que encuentro es que si la palabra empieza por un numero no la detecta, (1GHRT) pero aun asi gracias por la ayuda!.

[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;

procedure TForm1.Button1Click(Sender: TObject);
Var Texto : String;
begin
   Texto := MAyuscula(Edit1.Text);
   ShowMessage(Texto);
end;

Saludos

[*Caro*]

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; //si ya ha encontrado una mayuscula nos salimos del for
         end;
       end;
    end;
  end;

Saluditos

[*Caro*]

Hola de nuevo y si es caso es de que tienes que tomar solo los de 5 caracteres y no habrá ninguno que este mezclado con minúsculas:

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
    showmessage(sl[i])
  end;

Saluditos

[ecfisa]

Hola.

Otra opción:

Código Delphi [-]
function CincoMayusculas(Cad: string): TStrings;
var
  c, p: Integer;
begin
  c:= 1;
  Result:= TStringList.Create;
  while c < Length(Cad) do
  begin
    if Cad[c] in ['A'..'Z','Ñ','Á','É','Í','Ó','Ú'] then
    begin
      p:= 1;
      while (Cad[c+p] in ['A'..'Z','Ñ','Á','É','Í','Ó','Ú'])and(p < 5) do
         Inc(p);
      if p = 5 then
      begin
        Result.Add(Copy(Cad,c,5));
        c:= c + p;
      end;
    end;
    Inc(c);
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
var
  Cad: string;
begin
  Cad:= 'XBTCD carUVUAactENTEReresÑÁUTÍaleatorios FGHJK continuaeltexto UITXL';
  ListBox1.Items:= CincoMayusculas(Cad);
end;

Saludos.