Imprimir en un archivo
 

Hola foro:
Tengo una esctructura similar a esta

Cuando pongo valores y los imprimo a un archivo, no me respeta el tamaño de los campos (cuando son de menor tamaño), como puedo hacer para que me respete el tamaño de cada una de las cadenas ya sea por mayor o por menor.

Muchas gracias por sus sugerencias.

Alexander.

Ej. 1010Alexander0000000000 ( Error )
1010Alexander 0000000000 ( Bueno )

Lo que tienes que hacer, es antes de imprimir rellenar la variable o registro con los espacios que le falten, para ello yo me he construido 2 funciones que rellenan con espacios a la izquierda o derecha según se necesiste:

Código Delphi [-]
  Function FillSpacesLeft(cVar:String;nLen:Integer):String;
  begin
  Result:=StringOfChar(' ',nLen - Length(cVar))+cVar;
  end;
  
  Function FillSpacesRight(cVar:String;nLen:Integer):String;
  begin
  Result:=cVar+StringOfChar(' ',nLen - Length(cVar));
  end;
 
 {Aquí rellenamos la variable con los espacios que le falten}
 
 cc.Nombre    :=FillSpacesRight(DmPal.ConcurNombre.Value,40);

Un Saludo.

Gracias por la ayuda
 

Muchas gracias por la ayuda ya me está funcionando.

Alexander.