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;