8 replies to this topic

[enecumene]

Con este algoritmo podemos hacer que la primera letra de cada palabra en una cadena sean mayúsculas, aquí el code:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  Str: string;
begin
  Label2.Caption:='';
  Str:=' '+Edit1.Text;
  i:=1;
  repeat
    if Str[i]<>' ' then
      Label2.Caption:=Label2.Caption+Str[i];
    if Str[i]=' ' then
    begin
      if (Str[i+1]<>' ') then
      begin
        Label2.Caption:=Label2.Caption+Str[i]+AnsiUpperCase(Str[i+1]);
        Inc(i);
      end
      else
        Label2.Caption:=Label2.Caption+Str[i];
    end;
    Inc(i);
  until i&gtLength(Str)+1;
  Str:=Label2.Caption;
  Delete(Str, 1, 1);
  Label2.Caption:=Str;
end;

Saludos.

[anubis]

Hola

Otra Alternativa A Tu Código

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  indice: integer;
  Temp,Cadena: string;
begin
  Temp  := StringReplace(edit1.text,edit1.text[1],AnsiUppercase(edit1.text[1]),[]);
  Cadena := Temp;
  while Pos(' ',Temp) > 0 do
  begin
    Indice := Pos(' ',Temp);
    Cadena := StringReplace(Cadena,' '+Cadena[indice+1],' '+AnsiUppercase(Cadena[indice+1]),[]);
    Temp[Pos(' ',Temp)] := '_';
  end;
  ShowMessage(Cadena);
end;

[enecumene]

Excelente amigo Anubis, cualquier alternativa es bienvenida

[rgstuamigo]

Pues aqui va otra alternativa sacado de trucomania ,pero en este caso se aplica directamente al escribir en un Edit:
   

delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
      with Sender as TEdit do
        if (Text = '')
        or (Text[SelStart] = ' ')
        or (SelLength = Length(Text)) then
            if Key in ['a'..'z'] then  Key := UpCase(Key);
  end;

Saludos...

[enecumene]

Gracias por el aporte amigo rgstuamigo

[escafandra]

Bueno... ¿Y que tal un poco de C++?
 

cpp

String PonMayusculas(String S)
{
   char* C = S.c_str();
   do{
     *C = toupper(*C);
     C = strchr(C, ' ');
     if(C) C++;
     else break;
   }while (*C);
   return S;
}

O si se prefiere mas compacto:

cpp

String PonMayusculas(String S)
{
   char* C = S.c_str()-1;
   do{
     *++C = toupper(*C);
     C = strchr(C, ' ');
   }while (C);
   return S;
}

Saludos.

[Rolphy Reyes]

Saludos.

Esta solución es para los que tienen las JEDI instaladas:

1.- Se debe de poner en uso la unidad SysUtils.
2.- Se debe de poner en uso la unidad JvJCLUtils.
3.- Se hace uso de la función AnsiProperCase.

Descripción:

delphi

{ Returns string, with the first letter of each word in uppercase,
  all other letters in lowercase. Words are delimited by WordDelims. }
function AnsiProperCase(const S: string; const WordDelims: TSysCharSet): string;

Ejemplo:

delphi

Edit2.Text := AnsiProperCase(Edit1.Text, [' ']);

[escafandra]

Otra Implementación, esta vez en delphi. los cambios se realizan en el mismo String que se devuelve cambiado:

delphi

var
  i: integer;
begin
  S[1]:= PCHAR(AnsiUpperCase(S[1]))^;
  for i:=1 to Length(S) do
  begin
    if S[i]=' ' then  S[i+1]:= PCHAR(AnsiUpperCase(S[i+1]))^;
  end;

Saludos.

[enecumene]

Excelente, más variaciones .