Primeras letras en mayúscula

[pablo]

hola!
1)alguno conoce un algoritmo para colocar todas las primeras letras de las palabras de una oracion en mayúscula?

2) Alguna manera de que al minimizar una ventana showmodal se minimizen todas las que estan abiertas detrás?

saludos
pablo

[delphi.com.ar]

Tengo una version de esta función en Delphi, pero no aquí... si te sirve te mando la que hice para VB:

Private Const CHR_LITERALS = "abcdefghijklmnñopqrstuvwxyzáéíóúàèìòùäëïöüABCDEFGHIJKLMNÑOPQRSTUVWXYZÁÉÍÓÚÀÈÌÒÙÄËÏÖÜ0123456789"

' Como la función de Oracle o el Capitalize de otros lenguajes
' Pone en mayúsculas la primer letra de cada palabra y en minúsculas el resto
Public Function InitCap(ByVal AText As String) As String
Dim Result As String
Dim PrevChar As String
Dim I As Integer
  Result = LCase(AText)
  PrevChar = Chr(0)
  For I = 1 To Len(AText)
    If InStr(1, CHR_LITERALS, PrevChar) = 0 Then
      Result = Left$(Result, I - 1) & UCase(Mid$(Result, I, 1)) & Mid$(Result, I + 1)
    End If
    PrevChar = Mid$(Result, I, 1)
  Next I
  
  InitCap = Result
End Function

Saludos!

[jachguate]

Te dejo esta función, que no será optima pero hace el trabajo:

Código Delphi [-]
  Function jachStrProperCase(s : String) : String;

  Var
    i : Integer;
    up : Boolean;

  Begin
    result := '';
    up := True;
    for i := 1 to length(s) do
    Begin
      if up Then
        result := result + AnsiUpperCase(s[i])
      else
        result := Result + AnsiLowerCase(s[i]);
      up := s[i] = ' ';
      if up and (length(s) >= (i + 2)) and (s[i+2] = ' ') Then
        // En el caso especial de palabras de una letra, se dejan en minúscula!
        up := false;
    end;
  end;

Hasta luego.

[TEN]

como hago para que un label me ponga la primer letra de cada palabra en mayuscula

[Casimiro Notevi]

Usa el ejemplo de jachguate.

[shoulder]

Código Delphi [-]
function Capitalize(Str: string): string;
var Index: Cardinal;
begin
 for Index := 1 to Length(Str) do
  if (Index = 1) or (Str[Index - 1] = ' ') then
   if Str[Index] in ['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y',

    'z','á','é','í','ó','ú','ñ'] then
    Dec(Str[Index], 32) else
  else
   if Str[Index] in ['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y',
   'Z','Á','É','Í','Ó','Ú','Ñ'] then
    Inc(Str[Index], 32);
 Result := Str;
end;

[ecfisa]

Hola.

Para sumar opciónes: Convertir un cadena donde cada Palabra Primera con mayuscula

Y una que contempla otros delimitadores ademas del espacio:

Código Delphi [-]
function UpperFirstChar(str: string): string;
const
  SEP = '|°!"#$%&/()={}[]¿?¡''''+*-_.,;:<> '; // (*)
var
  i : Integer;
begin
  Result := LowerCase(str);
  Result[1] := UpCase(Result[1]);
  for i := 1 to Length(Result) - 1 do
    if Pos(Result[i], sep) <> 0 then
      Result[i+1] := UpCase(Result[i+1]);
end;

(*) Caracteres que quieras considerar como separadores de palabra


Saludos

[Neftali [Germán.Estévez]]

Empezado por pablo

1)alguno conoce un algoritmo para colocar todas las primeras letras de las palabras de una oracion en mayúscula?
2) Alguna manera de que al minimizar una ventana showmodal se minimizen todas las que estan abiertas detrás?

No se si alguien te lo ha comentado ya, pero aprovecha para revisar la Guía de estilo.
Por favor, temas diferentes, hilos diferentes.

Gracias.

[Casimiro Notevi]

Empezado por Neftali

No se si alguien te lo ha comentado ya, pero aprovecha para revisar la Guía de estilo.
Por favor, temas diferentes, hilos diferentes.
Gracias.

10 años ya

[Neftali [Germán.Estévez]]

Nada, ni caso...
No se porqué me ha saltado este hilo como nuevo y he contestado sin mirar la fecha...

[[escafandra]]

Aquí tienes unos cuantos ejemplos para poner en mayúsculas la primera letra de cada palabra.


Saludos.