Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Ayuda Exportar Filtro Eh Txt (https://www.clubdelphi.com/foros/showthread.php?t=91711)

victor_ari25 05-04-2017 20:18:31

Ayuda Exportar Filtro Eh Txt
 
Saludos ....... Urgente La Respuesta....

Tengo Un Query Con 4 Registros... Formados Por 8 Columnas
Nesecito Esportar Ah Txt... Pero De Manera Consecutiva.........

Es Decir... Termina El Primer Registro ...... ... Siga El Segundo Registro Pero En La Primera Linea Seguida...

Como Si Fuera Un Parrafo... Ojo .. Separados Por ","...

Gracias Ah Espera De Sus Comentarios

ecfisa 05-04-2017 21:39:41

Hola victor_ari25, bienvenido a los foros de Club Delphi :) y junto a la bienvenida te invito a leer nuestra guía de estilo.

Te soy sincero, no sé si interpreté correctamente tu pregunta, pero a ver si te sirve así:
Código Delphi [-]
procedure TuForm.SaveFields(const aFileName: string);
var
  TS: TStrings;
  i : Integer;
  s : string;
begin
  TS := TStringList.Create;
  try
    TuQuery.First;
    while not TuQuery.Eof do
    begin
      s := '';
      for i := 0 to TuQuery.FieldCount-1 do
        s := s + TuQuery.Fields[i].AsString + ',';
      TuQuery.Next;
      if TuQuery.Eof then
        SetLength(s, Length(s) - 1);
      TS.Add(s)
    end;
    TS.SaveToFile( aFileName );
  finally
    TS.Free;
  end;
end;

Ejemplo llamada:
Código Delphi [-]
procedure TuForm.Button1Click(Sender: TObject);
begin
  SaveFields('Fields.txt');
end;

Saludos :)


La franja horaria es GMT +2. Ahora son las 15:32:13.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi