Fórum Bugs e Bugs Delphi 2005 ! Comparametros em tempo de exec. #291124

Ola caros amigos,


Estou muito frustrado com o Delphi 2005, COMPREI e instalei a versão 2005 Professional. Passei a compilar meus sistemas na nova versão como estava acostumado a fazer no Delphi 7 , apos algumas verificação só tive dor de cabeça problemas com o Firebird nas mascaras do sistema e graças ao forum foi resolvido, quando comecei a querer gostar do produto , me deparo com outro bug varias rotinas em meu sistema que esta funcionando perfeitamente quando copilado no Delphi 7 param de funcionar... Sem explicação.

Estou com todas atualizações instaladas.

Veja o codigo que não funciona no Delphi 2005:

dm.cdspreco.Close;
dm.qrypreco.close;
With dm.qrypreco Do
Begin
try
sql.clear;
sql.add(´Select produto.* From produto´);
case Rgbpesquisa.itemindex of
0: begin
sql.add(´where codproduto =´+ (edtpesquisa.text));
sql.Add(´Order by codproduto´);
end;
1: begin
if edtpesquisa.text <> ´´ then
begin
case Radiotipo.itemindex of
0: begin
sql.Add(´where descprod like :produto´);
params.ParamByName(´produto´).AsString:=Edtpesquisa.text+´¬´;
sql.Add(´Order by descprod´);
end;
1: begin
sql.Add(´where descprod like :produto´);
params.ParamByName(´produto´).AsString:=´¬´+Edtpesquisa.text+´¬´;
sql.Add(´Order by descprod´);
end;
2: begin
sql.Add(´where descprod like :produto´);
params.ParamByName(´produto´).AsString:=´¬´+Edtpesquisa.text;
sql.Add(´Order by descprod´);
end;
end;
end;
end;
2: begin
sql.Add(´where referencia like :REFERENCIA´);
params.ParamByName(´REFERENCIA´).AsString:=Edtpesquisa.text+´¬´;
sql.Add(´Order by referencia´);
end;
3: begin
sql.Add(´where marca like :Marca´);
params.ParamByName(´Marca´).AsString:=Edtpesquisa.text+´¬´;
sql.Add(´Order by marca´);
end; end;
dm.cdspreco.Open;
except
showmessage(´Conteúdo invalido para pesquisa!´);
end;
end;

Passo o código em tempo de execução por isto coloquei a sql junto com o código Delphi.

Realmente quando resolvo sair da Pirataria sofro tantas decepções e muito triste isto.

Desde já agradeço a atenção de todos.


Hugo Fabrício