FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Tengo una version de esta función en Delphi, pero no aquí... si te sirve te mando la que hice para VB:
Código:
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
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. Última edición por delphi.com.ar fecha: 20-04-2005 a las 15:04:04. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Primeras imágenes de Windows 8 | Chris | Noticias | 7 | 08-06-2011 23:15:03 |
¿Como extraer de una cadena de 18 caracter, las primeras 10 letras? | Nelly | Varios | 5 | 18-06-2007 20:00:09 |
Valor en letras, en mayuscula | alcides | Varios | 15 | 09-03-2007 05:38:26 |
Primeras imágenes de Internet Explorer 7 | marcoszorrilla | Noticias | 1 | 02-08-2005 03:54:16 |
Devolver Solo las Primeras N filas | pzhero | Oracle | 1 | 21-08-2004 00:15:00 |
|