FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
|||
|
|||
Hola,
Yo he creado la siguiente función para mis desarrollos. function StrFill(cadena:string;longitud:Integer;relleno,posicion:string) : string; var cTemp:string; n, nVeces:Integer; begin cTemp := cadena; nVeces := longitud - length(cTemp); for n := 1 to nVeces do begin if ((posicion = 'D') or (posicion = 'd')) then cTemp := cTemp+relleno else cTemp := relleno+cTemp; end; Result := cTemp; end; Parametros : cadena = cadena inicial a tratar longitud = longitud final de la cadena relleno = caracter de relleno posicion = si (D ó d) rellena por la derecha, sino por la izquierda de la cadena pasada en CADENA. Espero te sirva. Un saludo. |
|
|
|