Como exportar una archivo txt

[marcoszorrilla]

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.