Criação de componentes

Delphi

23/11/2004

Como faço para criar um componente e trabalhar com ela ao mesmo tempo, por exemplo eu crio uma query no oncreate de um form gostaria de adicionar uma instrução sql na query a ser criada e mudar seu nome.

:lol:


Douglasf

Douglasf

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

23/11/2004

Olá

Pode-se criar normalmente...

var
  qry: TQuery;
begin
  qry := TQuery.Create(Self);
  qry.SQL.Text := <sua SQL>;
  qry.Name := ´qryMinhaQuery´.
end;


Espero que ajude
AtÉ+


GOSTEI 0
Douglasf

Douglasf

23/11/2004

A criação deu tudo certo.

Mas quando vou fazer a ligação do banco com a qry dá problema olha o meu codigo:

procedure TForm1.FormCreate(Sender: TObject);
var qry : TZQuery;
begin
qry := TZQuery.Create(Self);
with qry do
begin
Connection:=dmCompras.conCompras;
Name := ´qryTipoSuporte´;
SQL.Text:=´select * from tipo_suporte´;
Active:=True;
end;
DataSource1.DataSet := qry;
end;

dá erro na linha : Connection:=dmCompras.conCompras;


o erro é o seguinte:

Debbuger Exception Notification

Project Compras.exe raised exception class EAccessViolation with message ´Access violation at Anddress 00539303 in module ´Compras.exe´. Read of address FFFFFFFF´.


GOSTEI 0
Bruno Belchior

Bruno Belchior

23/11/2004

você já criou o DataModule?


GOSTEI 0
Douglasf

Douglasf

23/11/2004

Sim, e ainda declarei ele no USES.


GOSTEI 0
Paulo_amorim

Paulo_amorim

23/11/2004

Olá

O que o Bruno quis dizer é: quando essa instrução é executada, o dmCompras já está criado?

Ou seja, dmCompras deve ser criado ANTES de seu Form1, já que isso é executado no FormOnCreate.

Ou então mude seu código para OnShow

Espero que ajude
Até+


GOSTEI 0
POSTAR