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 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;
Responder Con Cita