Fórum Exportar dados de uma Tabela Paradox p/um TXT #225667

Use um componente Query

procedure P_TXT();
var v_txt : TStringList;
v_sql : string;
v_i : integer;
begin
v_txt := TStringlist.Create;
v_sql := ´select dados da tabela´;
abra a query;
if FileExists(´C:\txt.txt´) then
begin
for v_i := 0 to Query.FieldCount - 1 do
begin
v_txt.add(Query.fields[v_i].fieldname + ´;´;
end;
Query.First;
While not Query.Eof do
begin
for v_i := 0 to Query.FieldCount - 1 do
begin
v_txt.add(Query.fieldbyname(query.fields[v_i].fieldname).value)+ ´;´;
end;
Query.Next;
end;
end;
end;

sem mais

Cabelo.

Amigo primeiramente declare na secao Uses de seu form: Comobj.
Declare a seguinte variável: MSWord: Variant;
Depois faça o seguinte:
MSWord:=CreateOleObject(´Word.Basic´);
MSWord.FileNew; //inicia um novo documento
MSWord.insert(´Insira aqui o que voce quer escrever no texto´);
MSWord.Insert(#13); //Pula de linha
MSWord.Insert(´Escreva o que quizer´);

Vá fazendo isto e criando o seu arquivo texto.Para pegar os dados de sua
tabela e colocar no texto é simples, basta fazer o seguinte, por exemplo:
MsWord.Insert(´Nome:´+tbl_clientenome.asstring+13);
MsWord.insert(´Endereço:´+tbl_clienteendereco.asstring+13);
e assim por diante.
Pode fazer um laço e ir criando o arquivo texto.
Depois basta salvar o arquivo
MSWord.FileSaveAs(´c:\meus documentos\meu_arquivo.txt´, 3); //Salva o arquivo
Showmessage(´Arquivo texto gerado´);

Espero ter ajudado.