Ir para conteúdo
  • Cadastre-se

dev botao

Acbr Delphi Berlin 10.1


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

Recommended Posts

Ola, amigos to precisando de uma ajudinha, apos instalar todos os components do Acbr pelo instalador no Delphi berlin 10.1

ao compilar a minha aplicação, esta dando um erro da Unit ACBrD5, quando removo da minha uses ai compila, porem tenho umas function que esta la, e uso, sabem o porque disso?

agradeço a ajuda.

obrigado.

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Você deve ter algum arquivo ACBr.inc, no SourcePath, que está muito antigo, e não é o utilizado pelo projeto...

Essa Unit somente seria compilada se o Delphi for inferior a D6... Veja em ACBrUti.pas

    {$IfDef COMPILER6_UP} ,StrUtils, DateUtils {$Else} ,ACBrD5, FileCtrl {$EndIf}  

 

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Moderadores

A unit ACBrD5 só é pra ser usada para quem utiliza Delphi menor q a versão 6, ou seja, esta unit não é compatível com Delphi Berlim.

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link para o comentário
Compartilhar em outros sites

  • Moderadores

Acho que seu problema pode estar em ter em algum lugar as units citadas acimas!

veja se na pasta de seu projeto ou em outro lugar não esteja usando.

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Verifique se alguma Unit do seu sistema está invocando a ACBrD5.pas...

Se os fontes do ACBr estão atualizados corretamente, e o ACBr.inc está correto, então os fontes do ACBr irão ignorar a ACBrD5.pas

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

Blz, realmente tinha o ACBrD5 em algusn dos meu fontes, removi da uses, porem ao compilar meu projeto apareceu erro nessa funçao

                         Fim := IncSecond(now,3);
                         repeat
                             Sleep(100);
                             Application.ProcessMessages;
                         until (now > Fim);
nem lembrava que eu tava utilizando, o que devo fazer ? existe outra forma de usar ?

Link para o comentário
Compartilhar em outros sites

  • Consultores

Que função é essa? O que ela faz?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

componente do tef

procedure TForm1.ACBrTEFD1ExibeMsg(Operacao : TACBrTEFDOperacaoMensagem;
   Mensagem : String; var AModalResult : TModalResult);
var
   Fim : TDateTime;
   OldMensagem : String;
begin
  StatusBar1.Panels[1].Text := '' ;
  StatusBar1.Panels[2].Text := '' ;

  case Operacao of

    opmOK :
       AModalResult := MessageDlg( Mensagem, mtInformation, [mbOK], 0);

    opmYesNo :
       AModalResult := MessageDlg( Mensagem, mtConfirmation, [mbYes,mbNo], 0);

    opmExibirMsgOperador, opmRemoverMsgOperador :
         lMensagemOperador.Caption := Mensagem ;

    opmExibirMsgCliente, opmRemoverMsgCliente :
         lMensagemCliente.Caption := Mensagem ;

    opmDestaqueVia :
       begin
         OldMensagem := lMensagemOperador.Caption ;
         try
            lMensagemOperador.Caption := Mensagem ;
            pMensagemOperador.Visible := True ;
            pMensagem.Visible         := True ;

            { Aguardando 3 segundos }
            Fim := IncSecond( now, 3)  ;
            repeat
               sleep(200) ;
               lMensagemOperador.Caption := Mensagem + ' ' + IntToStr(SecondsBetween(Fim,now));
               Application.ProcessMessages;
            until (now > Fim) ;

         finally
            lMensagemOperador.Caption := OldMensagem ;
         end;
       end;
  end;

  pMensagemOperador.Visible := (lMensagemOperador.Caption <> '') ;
  pMensagemCliente.Visible  := (lMensagemCliente.Caption <> '') ;

  pMensagem.Visible := pMensagemOperador.Visible or pMensagemCliente.Visible;
  Application.ProcessMessages;
end;

 

Link para o comentário
Compartilhar em outros sites

  • Consultores
3 minutos atrás, Daniel Simoes disse:

IncSecond, no Lazarus, pertence a DateUtils.pas

No Delphi também é isso. Basta o DSilva adicionar na uses a unit DateUtils.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

×
×
  • 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.

The popup will be closed in 10 segundos...