[ecfisa]

Empezado por borlandpablo

Creo que lo explico bien en mi primer mensaje. Todas mis TQuerys tienen una consulta predeterminada (select * from [tabla]), y lo que quiero es resetear los TQuerys a esa forma predeterminada, ya que hago muchas consultas diferentes y diferentes formularios, por lo que cuando voy moviéndome por las diferentes pantallas y haciendo cosas, un ComboBox no se rellena del todo, en otra pantalla se queda 1 solo registro, etc..

Un saludo

Hola.

Ahora creo que entiendo, deseas restaurar la cadena SQL a su valor original. Bueno es simple, basta con salvar la cadena SQL en una variable previamente, hacer las operaciones que desees y luego restaurarla.

A modo de ejemplo:

...
AnsiString OldStrSQL;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  // Cadena asignada en diseño en OldStrSQL
  OldStrSQL = tuQuery->SQL->Text;  
  tuQuery->Close();
  // asignar nuevo valor
  tuQuery->SQL->Text = "SELECT XXX, YYY FROM TU_TABLA"; 
  tuQuery->Open();
}

void __fastcall TForm1::btnRestauraClick(TObject *Sender)
{
  tuQuery->Close();
  // Restaurar consulta
  tuQuery->SQL->Text = OldStrSQL;
  tuQuery->Open();
}

Saludos.