Convertir un cadena donde cada Palabra Primera con mayuscula

[shoulder]

Una pregunta cual es la funcion en delphi donde de una cadena de dos o tres palabras me convierta la primera letra de cada palabra en mayuscula y luego la palabra en minuscula como la funcion strconv de access.

Gracias

[roman]

No recuerdo haber visto una función así en delphi. Prueba a ver si ésta da el ancho:

Código Delphi [-]
function Capitalize(S: String): String;
var
  I: Integer;
  InBetween: Boolean;

begin
  Result := '';
  InBetween := true;

  for I := 1 to Length(S) do
    if S[i] = ' ' then
    begin
      Result := Result + S[i];
      InBetween := true;
    end
    else if InBetween then
    begin
      Result := Result + UpCase(S[i]);
      InBetween := false;
    end
    else
      Result := Result + LowerCase(S[i]);
end;

// Saludos

[jhonny]

Yo tampoco recuerdo una función que haga eso y también propongo una función, para el caso:

Código Delphi [-]
 
function Capitalize(S: String): String;
var
  ListaVar: TStringList;
  Cadena  : String;
  i:  Integer;
begin
  ListaVar      :=  TStringList.Create;
  Result     :=  '';
  try
    ExtractStrings([' '],[' '], PCHAR(S), ListaVar);
    for I := 0 to ListaVar.Count - 1 do
    begin
      Cadena      :=  ListaVar[i];
      Cadena      :=  LowerCase(Cadena);
      Cadena[1]   :=  UpCase(Cadena[1]);
      Result   :=  Result + Cadena  + ' ';
    end;
    SetLength(Result, Length(Result)-1);
  finally
    ListaVar.Free;
  end;
end;

[[cHackAll]]

Estas subastas de código son fantásticas, yo pongo el mío;

Código Delphi [-]
function Capitalize(Str: string): string;
var Index: Cardinal;
begin
 for Index := 1 to Length(Str) do
  if (Index = 1) or (Str[Index - 1] = ' ') then
   if Str[Index] in ['a'..'z'] then
    Dec(Str[Index], 32) else // verdad que parecería que sobra ese "else" ?
  else
   if Str[Index] in ['A'..'Z'] then
    Inc(Str[Index], 32);
 Result := Str;
end;

[jhonny]

Bueno, lo que me parece curioso es que aunque no es difícil de incluir, ninguna de las tres funciones tienen en cuenta los caracteres especiales, tales como la Ñ o las mayúsculas con tildes .

[[cHackAll]]

Cierto (SP), la corrijo:

Código Delphi [-]
function Capitalize(Str: string): string;
var Index: Cardinal;
begin
 for Index := 1 to Length(Str) do
  if (Index = 1) or (Str[Index - 1] = ' ') then
   if Str[Index] in ['a'..'z','á','é','í','ó','ú','ñ'] then
    Dec(Str[Index], 32) else
  else
   if Str[Index] in ['A'..'Z','Á','É','Í','Ó','Ú','Ñ'] then
    Inc(Str[Index], 32);
 Result := Str;
end;

Saludos