Capitalizar una determinada cadena
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".
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;
|