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