Capitalizar una determinada cadena

[dec]

Con la siguiente función podemos capitalizar una determinada cadena que pasemos como parámetro. Por ejemplo, si pasáramos como parámetro la cadena "ramón" obtendríamos como resultado la cadena "Ramón".


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;