Exportação de ClientDataSet para arquivo Txt. Funcionará?
05/08/2004
0
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
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
Oziasl
Curtir tópico
+ 0
Responder
Posts
05/08/2004
G1b4
Acho que é assim:
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)