Hola ralmic.
Código:
void QueryToTxt(TQuery *qy, const String aFileName)
{
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]->AsString + ",";
tmp.SetLength(tmp.Length()-1);
sl->Add(tmp);
qy->Next();
}
qy->Close();
sl->SaveToFile(aFileName);
} __finally {
delete sl;
}
}
Ejemplo de uso:
Código:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Query1->SQL->Text = "SELECT * FROM COUNTRY";
QueryToTxt(Query1, "C:\\Carpeta\\Query.txt");
}
Saludos