Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3091 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Bom dia,

Depois que instalei o Trunk 2 notei que sempre que faço um build no meu projeto no delphi7, todos os componentes utilizados no projeto são recompilados gerando um tempo de compilação extremamente longo. Não são somente os componentes ACBr que são compilados, mas todos os componentes de terceiros.

Alguém sabe alguma coisa sobre isso?

 

Obrigado,

 

Claudio Quevedo.

  • Moderadores
Postado
21 minutos atrás, Claudio Quevedo disse:

Sim, sim... Mas ele não deveria recompilar componentes instalados há muito tempo, certo?

Depende, se uma das variáveis que ele analisa estiver diferente ele vai compilar, mas isso não tem a ver com o ACBr.

Você está utilizando o build all ou compile?

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
  • Moderadores
Postado

Usando o compile teria que compilar somente o que alterou, tenta o seguinte, faz um clear e depois um build all no teu aplicativo, e veja se vai parar de recompilar tudo sempre.

Se não parar ai não sei lhe dizer o que é, mas o ACBr não tem a ver com isso, teria mais a ver com algo na máquina ou no Delphi.

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Postado

Opa, não consegui resolver, mas minimizei o problema gerando todas as dcu e depois só compilo, como você sugeriu.

 

Não sei se esse é o canal, mas aproveitando a oportunidade: Estava recebenco um erro de access violation no método TRLCustomControl.FindParentPager quando a variável W era setada com nil. Quando o typecast era feito o retorno da função ficava com algum lixo de memória e dava erro na rotina chamadora.

function TRLCustomControl.FindParentPager: TRLCustomPager;
var
  W: TControl;
begin
  W := Parent;
  while (W <> nil) and not (W is TRLCustomPager) do
    W := W.Parent;
  Result := TRLCustomPager(W)
end;

Esse é o método original. Para que não pare meus clientes alterei para ficar assim:

function TRLCustomControl.FindParentPager: TRLCustomPager;
var
  W: TControl;
begin
  W := Parent;
  while (W <> nil) and not (W is TRLCustomPager) do
    W := W.Parent;

  if Assigned(W) then
    Result := TRLCustomPager(W)
  else
    Result := nil;

end;

  • Este tópico foi criado há 3091 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.