Como salvar consulta SQL em arquivo texto?

[NeoTUX]

Gostaria de poder salvar o resultado de uma consulta sql exibida por um DBGrid em um arquivo texto do tipo .txt preferencialmente. Gostaria que após realizar a consulta, pudesse clicar em um botão, escolher o local e o nome do arquivo texto à salvar. É possível? Se não, qual alternativa eu tenho?

[MESTRE-ANDREI]

Não sei se vai ajudar, mas peguei esta dica na net:

====================================

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 qualquer 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;