Componentes ZQuery y ZTable [ZeosLib]

[chueco]

gracias por sus respuestas, lo que intente fue esto y dio resultado;

ZTable1.TableName:='dsw.medico';
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('Select nombre, apellido  from medico');
ZQuery1.Open;

pero como podria yo tener precargada consultas que hagan referencia a diferentes tablas y poder recorrerlas a traves de la propiedad SQL. sin tener que andar borrando y cargando cada ves que quiera una nueva consulta.-
Cual es el metodo para iterar sobre SQL o algo por el estilo,-

Muchas gracias por sus respuestas, saludos...

[[Caral]]

Hola
Digamos que quieres tener algunas consultas preestablecidas y que quieres tomarlas cuando quieras.
Hagamos un ejercicio (JAMAS lo he hecho, solo se me ocurre):

Creamos un procedimiento que nos cargue los string de sql:

Código Delphi [-]
Procedure TForm1.SQLDatos;
var sql1, sql2, sql3 : String;
Begin
  sql1:= 'Select * From MiTabla1';
  sql2:= 'Select micampo1, micampo2 from mitabla2';
  sql3:= 'Select Loquesea From mi tabla3';
end;

Bien ahora lo uso:

Código Delphi [-]
ZQuery1.Sql.Text:= SQLDatos(sql1);
ZQuery1.Open;
 While not zQuery1.eof do
 begin
 bsSkinListBox1.Items.Add(nombre);  //primer listBox
 zQuery1.Next;
 end;
ZQuery1.Close;  // cierro
ZQuery1.Sql.Text:= SQLDatos(sql2);
ZQuery1.Open;
 While not zQuery1.eof do
 begin
 bsSkinListBox2.Items.Add(nombre); // segundo listBox
 zQuery1.Next;
 end;

Es posible que con una funcion camine mejor ya que estara buscando la variable, me imagino que por ahi va la cosa.
Solo opino, desde lo mas profundo de mi desconocimiento.
Saludos

[[Caral]]

Hola
Bien, despues de probar la chapuza que hice lo he probado y esta es la correcta forma de hacerlo:
Se sigue con casi lo mismo, pero ahora pondremos las variables fuera del procedimiento como globales:

Código Delphi [-]
var
  Form1: TForm1;
  sql1, sql2, sql3 : String;

Ahora el procedimiento SIN las variables:

Código Delphi [-]
Procedure TForm1.SQLDatos;
Begin
  sql1:= 'Select * From Alumnos';
  sql2:= 'Select Nombre, Apellido from Alumnos';
  sql3:= 'Select telefono From mi Alumnos';
end;

Ahora lo llamamos:

Código Delphi [-]
SQLDatos; //llamamos al procedimiento
ZQuery1.Sql.Text:= sql1;  //primera consulta sql
ZQuery1.Open;
 While not zQuery1.eof do
 begin
 bsSkinListBox1.Items.Add(ZQuery1.Fields[0].Text + ZQuery1.Fields[1].Text + etc..);  //primer listBox
 zQuery1.Next;
 end;
ZQuery1.Close;  // cierro
ZQuery1.Sql.Text:= sql2; //segunda consulta sql
ZQuery1.Open;
 While not zQuery1.eof do
 begin
 bsSkinListBox2.Items.Add(ZQuery1.Fields[0].Text + ZQuery1.Fields[1].Text); // segundo listBox
 zQuery1.Next;
 end;

Bien, ahora si estoy seguro de que funciona, ya lo probé.
Saludos