[ecfisa]

Hola ralmic.

Empezado por ralmic

...
lo que me faltaría es como pornerle comillas a los valores que no sean numéricos. para poder a agregarlos a un a tabla. será posible?? ...

Si claro,

void QueryToTxt(TQuery *qy, const String aFileName, const String Quote)
{
  String tmp;
  TStrings *sl = new TStringList;

  __try {
    qy->Close();
    qy->Open();
    while (!qy->Eof) {
      tmp = "";
      for(int i=0; i<qy->Fields->Count; i++)
        tmp += qy->Fields->Fields[i]->InheritsFrom(__classid(TNumericField)) ?
               qy->Fields->Fields[i]->AsString + "," :
               Quote+qy->Fields->Fields[i]->AsString+Quote + ",";
      tmp.SetLength(tmp.Length()-1);
      sl->Add(tmp);
      qy->Next();
    }
    qy->Close();
    sl->SaveToFile(aFileName);
  } __finally {
    delete sl;
  }
}

Uso:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  QueryToTxt(Query1, "C:\\Pruebas\\DoubleQuote.txt",'"');
}

Saludos