Exportar datos de firebird a archivo de texto

[jhonny]

Bueno, lo mas normal es que tu aplicación tenga descendientes de TDataSet, entonces hice estas dos funciones, que te devuelven la cadena insert, tu diras si te sirven:

Código Delphi [-]

function DatoFormateado(const Campo: TField): String;
begin
  if (Campo is TStringField) or (Campo is TDateField) then
  begin
    Result := ''''+Campo.AsString+'''';
  end
  else
    Result := StringReplace(Campo.AsString, ',', '.', [rfReplaceAll]);
end;

function ExportarInsert(DataSet: TDataSet; Tabla: String): String;
var
  i :Integer;
  cadena :string;
begin
  cadena := '';
  cadena := 'insert into '+Tabla+' values(';
  for i := 0 to DataSet.FieldCount -1 do
  begin
    cadena := cadena + DatoFormateado(DataSet.Fields[i]);
    if ((DataSet.FieldCount -1) = i) then
      cadena := cadena + ')'
    else
      cadena := cadena + ',';
  end;
  Result := cadena + ';';
end;

Solo es cuestion de que pongas a recorrer cualquier DataSet y exportes los resultado de la función ExportarInsert en un archivo, un ejemplo de esto es:

- Coloque un TMemo y una tabla, a los cuales se les hace esto:

Código Delphi [-]
Tabla1.First;
Memo1.Lines.Clear;
while not Tabla1.Eof do
begin
  Memo1.Lines.Add(ExportarInsert(Tabla1, 'TablaPrueba'));
  Tabla1.Next;
end;

Espero te sirva .