Firebird - Exportar/Importar registros em arquivo .txt

procedure TForm1.gravarTxt();

var

  txt : TextFile;

  i : integer;

begin

  AssignFile(txt, ExtractFilePath(ParamStr(0)) + 'bkp.txt');



  Rewrite (txt);



  // Minhatabela é um objeto Table qualquer, como um TTable, TSimpleDataSet, etc

  MinhaTabela.First;

  while not MinhaTabela.Eof do

    begin

      for i := 0 to MinhaTabela.Fields.Count - 1 do

        write(txt, MinhaTabela.Fields[i].AsString + '|');



      writeln(txt, ''); // quebra a linha



      MinhaTabela.Next;

    end;



  CloseFile(txt);

end;

TerraSkilll disse:

É possível sim, basta você carregar os dados, iterá-los (com um while por exemplo) e gravar em um arquivo txt. A estrutura ficaria parecida com a abaixo:

procedure TForm1.gravarTxt();

var

  txt : TextFile;

  i : integer;

begin

  AssignFile(txt, ExtractFilePath(ParamStr(0)) + 'bkp.txt');



  Rewrite (txt);



  // Minhatabela é um objeto Table qualquer, como um TTable, TSimpleDataSet, etc

  MinhaTabela.First;

  while not MinhaTabela.Eof do

    begin

      for i := 0 to MinhaTabela.Fields.Count - 1 do

        write(txt, MinhaTabela.Fields[i].AsString + '|');



      writeln(txt, ''); // quebra a linha



      MinhaTabela.Next;

    end;



  CloseFile(txt);

end;

Você tem que definir como vai separar os valores dos campos (no meu exemplo, são separados por pipes "|"). Também podem ser necessárias algumas conversões de tipos (float, integer, Bcd).

Particularmente, não recomendo esse método. Se o objetivo é tão somente backup/restore, é muito mais confiável utilizar o gbak, ferramenta do próprio firebird para realizar backups.

Abraço.