Primea Letra En Mayúscula
 

Hola a todos:
Pues lo que necesitaría es una rutina que me permita poner en mayúscula la primera letra de cada palabra de un string dado que está en minúsculas.

Y de paso, ¿alguien sabe como conseguir que al pasar de mayúsculas a minúsculas con la funcion LowerCase() se conviertan también las Ñ y los Ó,Á, etc...?

Hola,

A ver si este par de funciones te apañan:

Código Delphi [-]
{ ············································································ }
 
 function Capitalizar(const cadena: string): string;
 var
   s: string;
   i: integer;
   b: boolean;
 begin
   s := '';
   b := true;
   for i := 1 to Length(cadena) do
   begin
     if b then
       s := s + AnsiUpperCase(cadena[i])
     else
       s := s + cadena[i];
     b := (cadena[i] = ' ');
   end;
   Result := s;
 end;
 
 { ············································································ }
 
 function CapitalizarFrase(const frase: string) : string;
 var
   i: integer;
   up: boolean;
 begin
   up := true;
   Result := frase;
   for i := 1 to Length(frase) do
   begin
     if up then
       Result := Result + AnsiUpperCase(frase[i])
     else
       Result := Result + AnsiLowerCase(frase[i]);
     up := frase[i] = ' ';
     if up and (Length(frase) >= (i + 2)) and
       (frase[i+2] = ' ') then up := false;
   end;
 end;
 
 { ············································································ }

Yo lo hago con la funcion StuffString de la unidad StrUtils :

Funciona, gracias
 

Código Delphi [-]
 
{ ············································································ }
 
 function CapitalizarFrase(const frase: string) : string;
 var
   i: integer;
   up: boolean;
 begin
   up := true;
   Result := frase;
   for i := 1 to Length(frase) do
   begin
     if up then
       Result := Result + AnsiUpperCase(frase[i])
     else
       Result := Result + AnsiLowerCase(frase[i]);
     up := frase[i] = ' ';
     if up and (Length(frase) >= (i + 2)) and
       (frase[i+2] = ' ') then up := false;
   end;
 end;
 
 { ············································································ }

Muchas gracias, es justo lo que necesitaba. Unicamente he tenido que hacer la siguiente modificación para que funcione perfecto:
en lugar de

Código Delphi [-]
Result := frase;

Puse:

Código Delphi [-]
Result := '';

porque de lo contrario el resultado de la función era la frase original más la frase capitalizada: por ejemplo: la frase originalLa Frase Capitalizada

Gracias, muchas gracias

Bueno ya el caso está resuelto, pero aporto otra solución para la base de datos de los foros haciendo uso de los TStrings.

Código Delphi [-]
function AsTitulo(Frase:String):String;
Var
  Lista : TStrings;
  i : integer;
  Temp : String;
begin
  Lista := TStringList.Create;
  Lista.Delimiter := ' ';
  Lista.DelimitedText := Frase;
  for i := 0 to Lista.Count - 1 do
  begin
    Temp := LowerCase(Lista[i]);
    Temp[1]:= UpCase(Temp[1]);
    Lista[i] := Temp;
  end;
  Result := Lista.DelimitedText;
  Lista.Free;
end;

Saludos;)

Hola,


Pues así es la verdad. Gracias a ti por informar del error, que he corregido en donde era menester. ;)