label nao aparece no form

Question

[code:1:c414b943d0]function TMySQL.fProcurar(Sender: TObject; tb: string; vl: string): TADOQuery;var  Q: TADOQuery;  Fm: TForm;  Lbl: TLabel;  Edt: TEdit;begin    Fm:= TForm.Create(Application);    Fm...

Fernando_cunha · Answer

disfarcem a pergunta ridicula .. ja achei o erro!![]s...

Michael · Answer

Uma dica: se este form que vc est� criando ser� destru�do posteriormente, tbm por vc, use [b:a03cf7838b]nil [/b:a03cf7838b]no seu [b:a03cf7838b]Owner[/b:a03cf7838b], e n�o [b:a03cf7838b]Application[/b:a03cf7838b].

Fm:= TForm.Create(nil);

Da mesma forma, coloque o restante do c�digo dentro de um bloco [b:a03cf7838b]try..finally[/b:a03cf7838b] para garantir a libera��o do objeto.

Fm:= TForm.Create(nil);
try
  ...
finally
  Fm.Release; // N�o use Free para forms
end;

Para mais informa��es acerca de cria��o de objetos em run-time, consulte [url=http://forum.devmedia.com.br/viewtopic.php?t=68285&]este link[/url], e [url=http://delphi.about.com/od/adptips2005/qt/nilselfapp.htm]este[/url] tbm.

[]�s

Fernando_cunha · Answer

abaixo segue uma funcao que estou criando ...

como foi sugerido pelo colega Michael
criei o form com Owner = nil ...

at� hoje nao entendo direito algumas coisas no delphi.
Esta funcao faz parte de uma classe, chamada TMySQL que � proveniente da classe TADOConnection ...

vejamos ...
no trecho abaixo, Q.Connection recebe que valor? ou melhor, Self faz referencia a quem???
em

Q:= TADOQuery.Create(Self);
Self faz referencia a quem nesse trecho!??

Q:= TADOQuery.Create(Self);
                Q.Connection:= Self;
                Q.Close;
                Q.SQL.Clear;
                Q.SQL.Text:= �Select * from � + tb + � where � + Tlabel

o codigo ta funcionando, mas nao tenho certeza se nao esta ficando nada de sujeira na memoria ... vcs teriam alguma sugestao???

os componentes label , edits, e buttons dentro desse form tenho certeza de que estao liberados pois seu Owner � o proprio form, entao quando este for fechado os componentes serao liberados da memoria, ou nao??
Aceito sugestoes de melhorias ...
[]ssss

function TMySQL.fProcurar(Sender: TObject; tb: string): TADOQuery;
var
  Q: TADOQuery;
  Fm: TForm;
  Edt: TEdit;
begin
    Fm:= TForm.Create(nil);
    try
    Fm.Caption:= �Pesquisar por � + TLabel(Sender).Caption + � : �;
    Fm.BorderStyle:= bsDialog;
    Fm.Position:= poMainFormCenter;
    Fm.Height:= 200;
    Fm.Width:= 300;

    with TLabel.Create(Fm) do
      begin
        Parent := Fm;
        Caption := TLabel(Sender).Caption + � :�;
        Left := 10;
        Top := 10;
      end;

    Edt:= TEdit.Create(Fm);

    with Edt do
      begin
        Parent:= Fm;
        Left:= 10;
        Top:= 25;
       end;

    with TBitBtn.Create(Fm) do
      begin
        Parent:= Fm;
        Left:= 10;
        Top:= 55;
        width:= 50;
        Kind := bkOk;
        ModalResult:= MrOk;
        Caption:= ��;
        //Glyph.LoadFromFile(�search and replace.bmp�);
      end;

    with TBitBtn.Create(Fm) do
      begin
        Parent:= Fm;
        Left:= 65;
        Top:= 55;
        width:= 50;
        Kind := bkCancel;
        ModalResult:= MrCancel;
        Caption:= ��;
        //Glyph.LoadFromFile(�search and replace.bmp�);
      end;

      if Fm.ShowModal = MrOk then
        begin
          try
            if Edt.Text <> �� then
              begin
                Q:= TADOQuery.Create(Self);
                Q.Connection:= Self;
                Q.Close;
                Q.SQL.Clear;
                Q.SQL.Text:= �Select * from � + tb + � where � + Tlabel(Sender).Caption + �=� + QuotedStr(Edt.Text);
                ShowMessage(Q.SQL.Text);
                Q.Open;
                Result:= Q;
              end;
          finally

          end;
        end;
    finally
      Fm.Release;
    end;
end;

Michael · Answer

Veja os links que eu mencionei acima para entender como o Delphi funciona nesse sentido. Vale a pena mesmo. ;-)

Sobre os componentes, sim eles s�o destru�dos qdo o form for. E com rela��o a [b:98f264976f]Self[/b:98f264976f], ele se refere � inst�ncio da classe a qual o m�todo pertence. No seu exemplo, Self � a inst�ncia naquele momento de TMySQL.

Usar Self no c�digo mencionado por vc � perigoso. Veja pq: vc est� dizendo q o TADOQuery criado ser� destru�do quando a inst�ncia da classe TMySQL for. Mas um problema pode acontecer se vc destru�-lo antes, pois a classe vai tbm tentar faz�-lo posteriormente. Isso pode introduzir memory leaks na sua aplica��o.

Eu criaria TADOQuery passando nil, e, onde for usar a fun��o fProcurar, faria um try..finally. Veja

var
  Q: TADOQuery;
begin
  Q := MySQL.fProcurar(algum_objeto, algum_valor);
  try
    // faz alguma coisa com Q
  finally
    Q.Free;
  end;

Sempre q vc criar alguma coisa via c�digo, vc deve saber quando ela vai ser destru�da. No caso dos componentes, vc pode passar o Owner deles como o form, pq sabe q o form ser� liberado da mem�ria logo em seguida, levando os componentes com ele. J� no caso da query, vc pode chamar o m�todo [b:98f264976f]fProcurar [/b:98f264976f]v�rias vezes e a cada chamada uma nova inst�ncia do objeto TADOQuery seria alocada na mem�ria, e s� sair�o de l� quando TMySQL.Destroy for chamado ou se vc o fizer antes. Essa d�vida de quem vai destruir o objeto, al�m de n�o ser uma boa pr�tica de programa��o, pode alocar coisas na mem�ria desnecessariamente. J� usando nil e try..finally vc evita esses memory leaks.

Novamente, leia os artigos mencionados. Eles acrescentam muito ao conhecimento de qualquer programador Delphi, experiente ou n�o.

[]�s

Fernando_cunha · Answer

valeu cara, acho que antes de sair perguntando tenho que ler mesmo e tentar desenvolver sozinho ...mas valeu pelas dicas ...[]s...

Michael · Answer

N�o h� problema em vc perguntar. Eu s� sugeri a leitura de dois artigos excelentes que v�o aprimorar o seu conhecimento. ;-)[]�s...