Ajuda com Access Violation Misterioso

[fajo]

Oi Galera,

hj tive q abrir um sistema feito há dois anos para fazer algumas modificações, tudo estava funcionando perfeitamente até então, quando executei o projeto no D2007 apresentou o um erro de Access Violation na seguinte rotina:

function TDMPrincipal.ContaRegistros(Descricao: String): Integer;

var Qr: TSQLQuery;

begin

Qr := TSQLQuery.Create(nil);

with Qr do

try

SQLConnection := Conexao;

SQL.Add(Descricao);

Open;

Result := Fields[0].Value;

finally

free;

end;

end;

e o pior, na linha negritada, faz algum sentido?

[Micheus]

...quando executei o projeto no D2007 apresentou o um erro de Access Violation na seguinte rotina:

function TDMPrincipal.ContaRegistros(Descricao: String): Integer; 
var Qr: TSQLQuery; 
begin 
  Qr := TSQLQuery.Create(nil); 
  with Qr do 
  try 
    SQLConnection := Conexao; 
    SQL.Add(Descricao); 
    Open; 
    Result := Fields[0].Value; 
  finally 
    free; 
  end; 
end;

e o pior, na linha negritada, faz algum sentido?

fajo, veja como fica melhor a visualização do código utilizando a tag

..[/ CODE]. Para apontar a linha com problema utilize algo como: <<< AQUI

Quanto a sua dúvida não dá para dizer se faz sentido ou não, simplesmente porque você não negritou a linha. ;)

Abraços