Criar método ou função

[JonatasFn 0]

Pessoal, eu vou precisar usar este código várias vezes, entaum quero saber como posso criar uma função no Delphi.

Pra que eu só precise chamá-la, em vez de usar tudo isso.

 

O código é este, é um select no MySQL:

DM.queFilhos.close;
DM.queFilhos.sql.clear;
DM.queFilhos.sql.Add('SELECT * FROM filhos WHERE cracha_func LIKE (:cracha) ORDER BY nome_filho');
DM.queFilhos.ParamByName('cracha').AsString := dbeCracha.Text;
DM.queFilhos.execsql;
DM.queFilhos.Open;
DM.queFilhos.Active := True;

Queria poder chamar somente o selectFilhos ao invés de ter q usar tudo isso acima.

Valew...

[bdexterholland 0]

kara, vai mais ou menos assim:

function BuscaFilhos : Boolean;
begin
  DM.queFilhos.close;
  DM.queFilhos.sql.clear;
  DM.queFilhos.sql.Add('SELECT * FROM filhos WHERE cracha_func LIKE (:cracha) ORDER BY nome_filho');
  DM.queFilhos.ParamByName('cracha').AsString := dbeCracha.Text;
  DM.queFilhos.execsql;
  DM.queFilhos.Open;
  DM.queFilhos.Active := True;
  Result: := DM.queFilhos.Active;
end;

Agora pode acontecer o problema que aconteceu com suas varáveis globais, se vai te atender, aí eu já num sei :D

[Chrnos 30]

Só um detalhe... o open nas TQuerys da vida já dá o Active = true nelas também.... portando, a linha abaixo é desnecessária após o open.

 

  DM.queFilhos.Active := True;

[]'s

[bdexterholland 0]

viagem minha, valew pela observação :)