ActiveDelphi

[eulicio]

Olá pessoal,

Preciso urgentemente fazer uma exportação de dados de uma tabela Fb para um txt ou para o Word e não estou conseguindo. Vendo um artigo do Emerson Martins, Fiz:

{ Private declarations }
function PadR(cStr: string; nSize: Integer; cCar: string): string;

Function TForm6.PadR(cStr: String; nSize: Integer; cCar: String): String;
var
nFor, nAux: Integer;
cAux: String;
begin
cAux := Trim(cStr);
nAux := Abs(Length(cAux)-nSize)-1;
for nFor := 0 to nAux do
cAux := cAux+cCar;
Result := cAux;
end;

procedure TForm6.Button7Click(Sender: TObject);
var
Caminho : String;
mArq: TextFile;
begin
//Exportar.
DataModule1.cdsVRBPLT.Open;
Caminho := ('C:\INICIALTRAB9\ITENSVP.txt');
AssignFile(mArq, Caminho);
Rewrite(mArq);
While Not DataModule1.cdsVRBPLT.Eof do
Begin
Writeln(marq,
Padr(Copy(DataModule1.cdsVRBPLTVPVERBAS.Text,1, 6), 118, ' ')+ ' '+
Padr(Copy(DataModule1.cdsVRBPLTVPVALOR.Text, 1, 30), 30, ' ')+ ' ');
DataModule1.cdsVRBPLT.Next;
End;
Close;
end;

mas não funcionou corretamente. No arquivo txt do Bloco de Notas só aparece a última linha da tabela (o resultado final).
a tabela só tem dois campos (Verbas e Valor). o que pode estar errado ?

Uso D7, Fb 2.1, IBExpert e DbExpress.

agradeço qualquer . obrigado. eulicio (ecpetini@gmail.com)

PS: Se alguém tiver uma rotina para exportação para o Word seria melhor ainda. obrigado.

[joemil]

no lugar de close; experimente colocar CloseFile(mArq);

pra exportar por word, procure no google q tem bastante exemplos
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[eulicio]

Joemil,

muito obrigado pela sua dica, mas não resolveu o problema.
continua aparecendo só a última linha da tabela.
quanto a exportar para doc realmente tem muita coisa, só que as mais simples não funcionam a contento e as mais complexas eu não tentei.
de qualquer forma vou continuar tentando.

[]s. eulicio.

[danilo.vitolo]