Para exportar datos a un programa similar al que citas, yo me cree estas funciones, espero te sirvan:
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;
Function FillZerosLeft(cVar:String;nLen:Integer):String;
begin
Result:=StringOfChar('0',nLen - Length(cVar))+cVar;
end;
Ejemplo de uso:
Código Delphi
[-]
spDatCli.Cod :=FillSpacesRight(DmAni.CliCodigo.Value,12);
spDatCli.Titulo :=FillSpacesRight(DmAni.CliRSOCIAL.Value,40);
spDatCli.Nif :=FillSpacesRight(DmAni.CliNif.Value,15);
Un Saludo.