consulta exportacion archivo txt de longitud fija

[marcoszorrilla]

Código Delphi [-]
Asiento.Concepto     :=FillSpacesRight('F'+DmPan.FacturaNFactura.Value+'-'+DmPan.CliNombre.Value,40);

//Esta función la he creado para ese propósito, como es de suponer tengo otra llamada FillSpacesLeft
 Function FillSpacesRight(cVar:String;nLen:Integer):String;
 begin
 Result:=cVar+StringOfChar(' ',nLen - Length(cVar));
 end;

Un Saludo.