problema

[[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.