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;
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;