Problema con forms y zeos

[[enecumene]]

eso es bastante raro dec, si es problema de xintaxis de sql no me deberia funcionar en el primer intento para luego no me funcione. digo eso creo yo, segun mi impresion que de alguna manera luego de presionar el boton la sintaxis where esté repetida dos veces, esa es la impresion que me da.

saludos...

[dec]

Hola,

... Pues tal vez tengas que "limpiar" antes el componente...

Código Delphi [-]
ZModPed.SQL.Clear();
{...}

[[eduarcol]]

Empezado por enecumene

la sintaxis where esté repetida dos veces, esa es la impresion que me da.

saludos...

Tienes una muyt buena impresion de lo que sucede

Empezado por dec

Hola,

... Pues tal vez tengas que "limpiar" antes el componente...

Código Delphi [-]
ZModPed.SQL.Clear();
{...}

En realidad con eso funciona pero como tienes precargadas la sentencia sql si le da el clear se va a borrar toda la instruccion. la unica opcion q veo es cargar la setencia completa cada vez que presione el boton, usar parametros o usar banderas

[[enecumene]]

Hey, Muchas Gracias DEC y EDUARCOL por su ayuda, era algo tan simple, el codigo me quedo asi:

Código Delphi [-]
procedure TFTramiteMod.SpeedButton21Click(Sender: TObject);
begin
if (DBEdit1.Text = '') OR (DBEdit1.Text = '0') then
 begin
  MessageDlg('¡No se encuentra el número de registro!',mtError,[mbOK],0);
 end
 else
 begin
    FModPed:=TFModPed.Create(self);
    ZModPed.SQL.Clear;
    ZModPed.SQL.Add('select * from reg_pedidos');
    ZModPed.SQL.Add(Format(' where no = ''%s''',[DBEdit1.Text]));
    ZModPed.open;
    FModPed.ZDpto.Open;
    ShowMessage(ZModPed.SQL.Text);
    FModPed.Show;
 end;
end;

Nuevamente les doy las gracias, Saludos..