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
Puse:
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