De una tabla a un archivo texto

[roman]

Una forma rápida de implementarlo sería recorriendo la tabla y por cada registro agregar una línea al archivo de texto formada por los valores de los campos separados por comas:

var
  Lineas: TStringList;
  Linea: String;

begin
  Lineas := TStringList.Create;

  while not Table.Eof do
  begin
    Linea := '';
    for I := 0 to Table.Fields.Count - 1 do
      if Linea = ''
        then Linea := Table.Fields[i].AsString
        else Linea := Linea + ',' + Table.Fields[i].AsString;

    Lineas.Add(Linea);
    Table.Next;
  end;

  Lineas.SaveToFile('tuarchivo.txt');
  Lineas.Free;
end;

De esta manera obtienes un archivo CSV (Comma Separated Values) que pueden leer muchos programas como por ejemplo Excel.

// Saludos