Ayuda Exportar Filtro Eh Txt

[victor_ari25]

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]

Hola victor_ari25, bienvenido a los foros de Club Delphi :) y junto a la bienvenida te invito a leer nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php).

Te soy sincero, no sé si interpreté correctamente tu pregunta, pero a ver si te sirve así:

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:

procedure TuForm.Button1Click(Sender: TObject);
begin
SaveFields('Fields.txt');
end;


Saludos :)