Fórum Exportar conteúdo de uma Query para um arquivo texto #172021

695 - Como copiar tabelas Paradox para Texto ou DBase e vice-versa
1) Inclua um TDATABASE no seu Form e sete as seguintes propriedades:
DatabaseName = ´Temp´
DriverName = ´STANDARD´
Params.Strings = ´path=c: este´ (ou qq outro path)
Connected = True
2) Inclua outro TTable em seu Form e sete as seguintes propriedades:
DatabaseName = ´Temp´
Name = ´DESTINO´
TableType = ttASCII ou ttDbase ou ttParadox
TableName = o nome da nova tabela, sem extensão. Ex: ´Clientes´
IMPORTANTE: Não mexa na propriedade ACTIVE.

3) Inclua um TTable em seu Form, contendo a tabela que você quer copiar e mude a propriedade Name para ORIGEM.
IMPORTANTE: Não mexa na propriedade ACTIVE.

4) Inclua um TBATCHMOVE em seu Form e sete as seguintes propriedades:
Destination = ´DESTINO´
Mode = batCopy
Source = ´ORIGEM´
5) Inclua um TBUTTON em seu form e dê um duplo click no evento OnClick.
6) Escreva o seguinte código na procedure OnClick:
var
fn: FMTNumber;
begin
// O código a seguir verifica se o separador de
// decimais é virgula e muda-o, para evitar
// problemas de compatibilidade
Check(DbiGetNumberFormat(fn));
if fn.cDecimalSeparator = ´,´ then
begin
fn.cDecimalSeparator := ´.´;
fn.cThousandSeparator := ´,´;
DbiSetNumberFormat(fn);
end;
// Aqui executamos a CÓPIA
BatchMove1.Execute;
end;

Tem outro jeito que independe do tipo de acesso aos dados, alem de nao usar componentes auxiliares:

Suponha que sua query seja qryDados (pode ser BDE, IBX, DBX, tanto faz) e o campo que tenha a informação seja ´INFO´. Faça o seguinte:

var Lista : TStringList;

begin

Lista := TStringList.Create;
try
with qryDados do begin
Open;
Repeat
Lista.Add(FieldByName(´INFO´).AsString);
Next;
Until Eof;
Close;
end;
Lista.SaveToFile(´c:\arquivotexto.txt´);
finally
Lista.Free;
end;

end;