Array
(
)

Exportação de ClientDataSet para arquivo Txt. Funcionará?

Oziasl
   - 05 ago 2004

Procedure qualquer
Var
F:TStrings;
Recebe : Strings; (*recebe o campo do ClientDataSet1Numero.Asstring*) (*que identifica o nr do banco, ou seja esse será o nome do arquivo *)(*txt.*)
Begin

ClientDataSet1.first;

While not ClientDataSet1.Eof do
begin
Recebe := ClientDataSet1Numero.Asstring;
If ClientDataSet1Nome.Asstring = ´MUDOU DE CONSIGNATÁRIA´ then
begin
AssignFile(f,´c:\Recebe.txt´); *( a intenção era gravar aqui o nr do *)(*Banco que vai estar armazendo na variável Recebe*)
Rewrite(f); //abre o arquivo para escrita
Writeln (f,´ClientDataSet1Nome.AsString+ClientDataSet1Numero.AsString´); (*escreve no arquivo e desce uma linha *)
Write(f,´Clube Delphi´); //escreve no arquivo sem descer a linha
Closefile(f); //fecha o handle de arquivo
ClientDataSet1.next;

End;
Estou precisando demais dessa ajuda. Só falta isso p/ terminar essa parte do meu programa. Tudo de Bom. Ozias


G1b4
   - 05 ago 2004

Acho que é assim:

#Código


Var
F:TStrings;
Recebe : Strings; (*recebe o campo do ClientDataSet1Numero.Asstring*) (*que identifica o nr do banco, ou seja esse será o nome do arquivo *)(*txt.*)
Begin
AssignFile(f,´c:\Recebe.txt´); *( a intenção era gravar aqui o nr do *)(*Banco que vai estar armazendo na variável Recebe*)
Rewrite(f); //abre o arquivo para escrita
ClientDataSet1.first;
While not ClientDataSet1.Eof do
begin
Recebe := ClientDataSet1Numero.Asstring;
If ClientDataSet1Nome.Asstring = ´MUDOU DE CONSIGNATÁRIA´ then
begin
Writeln (f,´ClientDataSet1Nome.AsString+ClientDataSet1Numero.AsString´); (*escreve no arquivo e desce uma linha *)
Write(f,´Clube Delphi´); //escreve no arquivo sem descer a linha
Closefile(f); //fecha o handle de arquivo
ClientDataSet1.next;
End;