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:
Código:
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