FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#7
|
|||
|
|||
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); Alguien podria auxiliarme? espero que si de antemano gracias por su atencion y espero su respuesta SALUDOS |
|
|
|