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