FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
una facil ..pero Urgente .. insertar espacios
Hola , disculpen la pregunta que estimo no deberia estar aqui ,pero dado que son 3 de la madrugada y a las 12 del mediodia se me vence el plazo , me tomo la libertad .. Necesito una funcion que me inserte x cantidad de espacios en una cadena ..
por ahora lo entoy haciendo con var+' '+ pero no me parece lo mejor... aparte tengo longitudes de 129 blancos o mas ... gracias y disculpas. Ingel .. |
#2
|
||||
|
||||
Con un bucle puedes hacerlo sin problemas:
Código:
while i < Numero_de_espacios do begin Cadena:= Cadena + ' '; i:=i+1 end;
__________________
Saludos, Peter Investment |
#3
|
||||
|
||||
Posible solución
Hola,
Yo utilizo estas tres funciones para insertar espacios en un texto Código:
{Espacios por la derecha} function Padr(cString:string;nLen:integer):string; begin if (Length(cString) <> nLen) then if Length(cString) > nLen then Result:= Copy(cString,1,nLen) else Result:=cString+space(nLen-Length(cString)) else Result:= cString; end; {Espacios por la izquierda} function Padl(cString:string;nLen:integer):string; begin if (Length(cString) <> nLen) then if Length(cString) > nLen then Result:= Copy(cString,1,nLen) else Result:=space(nLen-Length(cString)) + cString else Result:= cString; end; {Generador de espacios} function Space(nLen:integer):string; begin result:=replicate(' ',nLen); end; Saludos |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|