Ver Mensaje Individual
  #2  
Antiguo 11-10-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita