Bom dia a todos.
Estou me deparando com uma situação um tanto estranha.
Tenho a seguinte procedure em meu projeto:
{----------------------------------------------------------------}
procedure Tfrm_planos.CarregaCursosPlano(plano_cod: string);
var
sqlqry_planocursos: TSQLQuery;
iCont_cursos: integer; // Var para o num de cursos
iCont: integer; // Var para o FOR
begin
// Inicializa variáveis
iCont:= 1;
// Conta os Cursos do Plano
with sqlqry_planocursos do
begin
close;
sql.Clear;
sql.Add('select count(cod) as cont_cursos');
sql.Add('from planocursos');
sql.Add('where (plano_cod= ' + plano_cod + ')');
open;
end;
iCont_cursos:= sqlqry_planocursos.FieldByName('cont_cursos').Value;
<+ Comandos...>
end;
{----------------------------------------------------------------}
Quando chamo a procedure de outro form, o código é executado todo sem erro.
Para chamar de outro form uso:
*frm_planos.CarregaCursosPlano(sqlqry_planos.FieldByName('plano_cod').AsString);*
Porém quando chamo do mesmo form usando o seguinte código:
*CarregaCursosPlano(edt_plano_cod.Text);*
Quando chega na parte do
with sqlqry_planocursos do
begin
close;
sql.Clear;
sql.Add('select count(cod) as cont_cursos');
sql.Add('from planocursos');
sql.Add('where (plano_cod= ' + plano_cod + ')');
open;
end;
Ocorre um erro de *Access violation*.
(Access violation at address 61766C61. Read for address 61766C61.)
Alguma sugestão do que pode estar errado?
Um grande abraço!
--
+--------------------------------------------------+
Paulo Daniel Dorensbach
http://geocities.yahoo.com.br/dorensbach
Usuario GNU/Linux #363631 - http://counter.li.org/
By Mozilla Thunderbird
www.mozilla.org.br
+--------------------------------------------------+
_______________________________________________________
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
