FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Archivo Texto (Length)
hola que tal amigos del foro
la verdad este hilo me lo contestaron hace tiempo pero tengo un pequeño detalle como puedo hacer que la funcion que se nombra en este hilo me ponga los espacios del lado derecho y no solo del lado izquierdo? ya que yo agrego lineas a un Tmemo de esta manera Código: Function Palabra(Cad : String; LarCad : Integer;Const Lado : Byte = 1) : String; begin While Length(Cad) < LarCad Do Case Lado of 1: Cad:=' '+Cad; 2: Cad:=Cad+' '; end; Result:=Cad; end; memo1.lines.add (Palabra(Tabla1.FieldByName('ImporteMoneda').asfloat),16); el caso es que esto hace que me ponga el importe _________100.00 con espacios en la izquierda solo que tengo un problema quiero poner espacios a la derecha pero de un campo string quiero poner un nombre y que quede de tamaño 40 no importando si el nombre esta muy corto pero quiero justificarlo con espacios a la derecha no a la izquierda. Alguien podria auxiliarme? espero que si de antemano gracias por su atencion y espero su respuesta SALUDOS |
#2
|
|||
|
|||
perdon como que el codigo no quedo muy claro
Código:
Function Palabra(Cad : String; LarCad : Integer;Const Lado : Byte = 1) : String; begin While Length(Cad) < LarCad Do Case Lado of 1: Cad:=' '+Cad; 2: Cad:=Cad+' '; end; Result:=Cad; end; //lineas que agregan las lineas al memo memo1.lines.add (Palabra(Tabla1.FieldByName('ImporteMoneda').asfloat),16); |
|
|
|