Ver Mensaje Individual
  #1  
Antiguo 07-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Capitalizar todas las palabras de una frase

Con la siguiente función capitalizamos todas las palabras de una determinada frase que se pase como parámetro.

Es decir, de esta frase: "hola qué tal va todo", obtendríamos el resultado: "Hola Qué Tal Va Todo".

Código Delphi [-]
function CapitalizarFrase(const frase: string) : string;
var
  i: integer;
  up: boolean;
begin
  up := true;
  Result := '';
  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;
Responder Con Cita