Consulta SQL en Procedimiento individual

[martini002]

Saludos Amigos, donde quiera que se encuentren,

no se si el titulo describa exactamente la duda que tengo,
el caso es que no se porque ocurre lo siguiente:

Código Delphi [-]
procedure BuscarFactura();
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text:= 'Select * From FacturaDetalle';
  ZQuery1.Open;
end;

Este el codigo que estoy intentando armar,
pero no me deja continuar porque me da un error,
y es algo de lo que me vengo dando cuenta desde hace dias,
no puedo colocar una consulta SQL desde un procedimiento definido?
en cambio cuando lo hago desde un evento entonces si,

el error que me da es que el identificador no esta declarado
ahora pienso declararlo y agrego esto

Código Delphi [-]
procedure BuscarFactura();
var
 ZQuery1:TZQuery;
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text:= 'Select * From FacturaDetalle';
  ZQuery1.Open;
end;

no me da el error de sintaxis, mas sin embargo al momento de llamar a ese procedure:

Código Delphi [-]
procedure TForm4.ECodigoKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  BuscarFactura();
end;

me muestra este error:

Module Load: sqlite3.dll. No Debug Info. Base Address: $60900000. Process Luminatti.exe (7640)

como podria resolver esto?
Gracias infinitas amigos delphines

[[Caral]]

Hola
declara tu procedimiento como parte del form en donde se declaran los demas, aqui:

Código Delphi [-]
type
  TForm4 = class(TForm)
  ZQuery1.TZquery;
  procedure BuscarFactura(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Luego simplemente lo usas asi:

Código Delphi [-]
procedure TForm4.BuscarFactura;
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text:= 'Select * From FacturaDetalle';
  ZQuery1.Open;
end;

Saludos

[martini002]

Madre mia!

asi tal cual? o es un error de HTML?

class='delphi'><div class="frame_codigo_delphi">Código Delphi [-]<div id="delphi_div_504154e7942e7" class="texto_codigo_delphi">

class='keyword'>procedure TForm4.BuscarFactura;
class='keyword'>begin

div>div>

Gracias Caral

[[Caral]]

Hola
No entiendo.
saludos
PD: revisa otra vez lo que puse arriba.

[martini002]

Disculpa, creo que fue un error de HTML,
mi firefox esta funcionando hoy como internet explorer.
ya lo vi bien, lo implementare ahora mismo,
Gracias, un abrazo.

Edito:
Funciono Perfectamente,
llamando al procedimiento de BuscarFactura asi:

Código Delphi [-]
procedure TForm4.ECodigoKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 BuscarFactura(nil);
end;

[[Caral]]

Hola
Bueno yo nunca uso el nill:
Pruebalo asi::

Código Delphi [-]
procedure TForm4.ECodigoKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 BuscarFactura;
end;

Saludos