Dei uma melhorada, olhe e adapte ...
procedure TForm1.FormCreate(Sender: TObject);
begin
with Query1 do
begin
DatabaseName := Database1.DatabaseName;
SQL.Add('SELECT * FROM TESTE_EDU');
end;
GravaTXT('C:\eduardo.txt', Query1, Nil);
end;
procedure TForm1.GravaTXT(VFileName : String; vQuery : TQuery = Nil; vTable :
TTable = Nil);
var
vAux : String;
vTXT : TextFile;
i, x : Integer;
begin
vAux := '';
if Trim(VFileName) = '' then
VFileName := 'C:\eduardo.txt';
if FileExists(VFileName) then
begin
AssignFile(vTXT, VFileName);
Append(vTXT);
end
else
begin
AssignFile(vTXT, VFileName);
Rewrite(vTXT);
Reset(vTXT);
Append(vTXT);
end;
if vQuery <> Nil then
with vQuery do
try
Open;
if not IsEmpty then
begin
vAux := SQL.GetText;
WriteLn(vTXT, VAux);
for i := 0 to RecordCount - 1 do
begin
vAux := '';
for x := 0 to Fields.Count - 1 do
vAux := vAux + Fields[x].AsString + ';';
WriteLn(vTXT, VAux);
Next;
end;
end;
Free;
except
Free;
end
else
if vTable <> Nil then
with vTable do
try
Open;
if not IsEmpty then
begin
vAux := 'Tabela : ' + TableName;
WriteLn(vTXT, VAux);
for i := 0 to RecordCount - 1 do
begin
vAux := '';
for x := 0 to Fields.Count - 1 do
vAux := vAux + Fields[x].AsString + ';';
WriteLn(vTXT, VAux);
Next;
end;
end;
Free;
except
Free;
end;
CloseFile(vTXT);
end;
Eduardo
----- Original Message -----
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, May 05, 2005 4:24 PM
Subject: Re: [delphi-br] TXT
procedure TForm1.FormCreate(Sender: TObject);
begin
GravaTXT('C:\eduardo.txt');
end;
procedure TForm1.GravaTXT(VFileName: String);
var
vAux : String;
vTXT : TextFile;
i, x : Integer;
begin
vAux := '';
if Trim(VFileName) = '' then
VFileName := 'C:\eduardo.txt';
if FileExists(VFileName) then
begin
AssignFile(vTXT, VFileName);
Append(vTXT);
end
else
begin
AssignFile(vTXT, VFileName);
Rewrite(vTXT);
Reset(vTXT);
Append(vTXT);
end;
with TQuery.Create(Nil) do
try
DatabaseName := Database1.DatabaseName;
SQL.Add('SELECT * FROM TESTE_EDU');
Open;
if not IsEmpty then
begin
vAux := SQL.GetText;
WriteLn(vTXT, VAux);
for i := 0 to RecordCount - 1 do
begin
vAux := '';
for x := 0 to Fields.Count - 1 do
vAux := vAux + Fields[x].AsString + ';';
WriteLn(vTXT, VAux);
Next;
end;
end;
Free;
except
Free;
end;
CloseFile(vTXT);
end;
Fiz agora, testa ai e v se funciona ...
Eduardo
----- Original Message -----
From: dionatanhenrique
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, May 05, 2005 9:13 AM
Subject: [delphi-br] TXT
Alguem teria uma funçao ou procedimento para exportar dados de uma
tabela para um arquivo txt .
Valeu!
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
