problema

[jovehe]

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

 
 
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

[[Lepe]]

Deberías haber podido tu solo... pero en fin.

Código Delphi [-]
Function Palabra(const Cad : String; LarCad : Integer;Const izq :Boolean = True ) : String; 
var i:integer;
begin 
  Result := cad;

for i:=length(Result) to LarCard do
if izq then 
 Result :='  '+Result;
else
 Result :=Result +'  ';
 end; 

end;

Problema: si cad es de longitud mayor a LarCad, la cadena no se corta, sale entera... se debería comprobar y si es mayor, poner 3 puntos suspensivos y cortar la cadena resultante... por ejemplo

Si ya has leido la Guia de estilo, habrás visto que no se debe repetir el mismo hilo varias veces, porque así te mareas tu al verlos y nosotros al responder, si no has leido la guia, deberías leerla

Saludos

[jovehe]

que tal lepe

antes que nada gracias por tu ayuda...

en cuanto a que repeti si desgraciadamente se me fue pero no era mi intencion, procurare no volver a hacerlo y si en efectivo ya lei la guia de estilos pero de todos modos gracias por la racomendacion.

me dices que debi de haber podido solo y pues antes que nada, soy un poco principiante solo tengo unosmeses programando y desgraciadamente a veces o muchas veces me falla, y si pude hacerlo de hecho solo que utilice otro metodo y fue el siguiente codigo....

 
While not Tabla1.Eof do
  begin
   Memo1.Lines.Add( Format('%-40s',[DM3.TTextoNombre.AsString]));
   Tabla1.Next
 end;

y asi me salia la cadena alineada a la derecha y de los caracteres que le indicara al formato.

SALUDOS¡¡¡
Y GRACIAS.