Armar cadena con datos de un query

[[maeyanes]]

Hola...

Si ya sabes cuales son los tipos de datos de los campos, no debe ser dificil lo que buscas hacer.

Podrías hacer algo como esto:

Código Delphi [-]
procedure ExportData(const TableName: string);
var
  I: Integer;
  ExportedData: TStringList;
  Line: string;
  Query: TQuery; // Puedes cambiarlo por el tipo que uses.

begin
  Query := TQuery.Create(nil);
  try
    // Configuras el componente para que use la conexión a la base de datos.
    Query.SQL.Text := Format('select * from %s', [TableName]);
    Query.Open;
    Query.First;
    ExportedData := TStringList.Create;
    try
      while not Query.Eof do
      begin
        Line := '';
        for I := 0 to Pred(Query.FieldCount) do
          Line := Format('%s%s,', [Line, Query.Fields[i].Value]);
        Delete(Line, Lenght(Line), 1); // Eliminamos la coma final
        ExportedData.Add(Line);
        Next
      end;
      ExportedData.SaveToFile(TableName + '.txt') // o .csv
    finally
      ExportedData.Free
    end
  finally
    Query.Free
  end
end;

Y ya para leer los datos, solo tienes que hacer un método que lea el archivo de texto y obtenga el valor de cada campo, sabiendo que cada valor está separado por una coma (,).

Te recomiendo que leas sobre los archivos de valores separados por comas (csv).

Espero te sirva.



Saludos...