Cita:
Empezado por Buelos
hola he leido con atencion y esto es justo lo ke necesito pero yo no uso adoquery's en mi aplicacion si no Query, y este no posee la propiedad savetofile, he buscado otras para ver si con alguna me funciona pero no la he encontrado, agradeceria si me pudieran ayudar con eso, pasar el resultado de la consulta del query a un archivo txt, muchas gracias
|
Bueno, que no tenga el SaveToFile no implica que no se pueda. En tu caso lo que puedes hacer es leer el conjunto de registros devueltos por tu TQuery e ir almacenandolos en algun TStringList o un Stream. Y dejar que estos objetos guarden el archivo ya que cuentan con el método adecuado: SaveToFile.
El dilema es que deberás indicar tu mismo como "estructurar" tus datos.
Por ejemplo, si se trata de una sola columna se puede hacer algo como esto:
Código Delphi
[-]Archivo := TStringList.Create;
TuQuery.First;
while NOT TuQuery.Eof do
begin
Archivo.Add(TuQuery.Fields[0].asString);
TuQuery.Next;
end;
Archivo.SaveToFile(TuRuta);
Espero que se entienda la idea. El código lo escribí al vuelo, pero creo puede ir.
Saludos,