Pasar datos de un DBGrid a Txt Tabulado

[daragor]

Compañero ecfisa.. tengo este error al compilar

xxx Error: Identifier not found "TBookmarkStr"

Evidentemente, no es usado en lazarus como tal.. creo q puede reemplazarse por string
Lo que si, el archivo txt se logra, pero el diseño es un lio de palabras salteadas por toda la hoja.. no creo q este funcionando lo de la tabulacion...

[ecfisa]

Hola daragor.

No puedo explicar lo que te sucede, claro que eso pasa por no ser experto en Lazarus .

¿ Será la versión o alguna actualización que hayas echo? (Yo lo tengo tal cuál lo descargué)

Mira:


Con este resultado:


Saludos.

[daragor]

Quizas no se, se debe a la fuenta usada en el bloc de notas..

[[rretamar]]

Existe el componente CSVExporter (viene preinstalado en Lazarus Codetyphon) y es muy simple de usar:

Código Delphi [-]
procedure TFExportar.BitBtn1Click(Sender: TObject); // Iniciar exportación
begin
  With CSVExporter1 Do
    Begin
      DataSet := Mi_dataset;
      FileName := 'archivo.txt';
      // Opciones avanzadas
      FromCurrent := CheckBox1.Checked;                    // Desde la posición actual
      FormatSettings.FieldDelimiter := LabeledEdit1.Text;  // Delimitador de campos
      FormatSettings.StringQuoteChar := LabeledEdit2.Text; // Cadenas
      //
      Execute;
      ShowMessage('Finalizó la exportación a un archivo de texto.');
    end;
end;