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