Imprimir en un archivo

[Alexander]

Hola foro:
Tengo una esctructura similar a esta

  type
	TLinea = record
	  C1  : String[2];
	  C2  : String[2];
	  C3  : String[50];
	  C4  : String[10]; 
	  C5  : String[10]; 
  end;

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 )

[marcoszorrilla]

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.

[Alexander]

Muchas gracias por la ayuda ya me está funcionando.

Alexander.