Alteração Acbrutil - Nova Função // Acbrspedfiscal - Uso Da Função

[i-master]

ACBrSpedFiscal - Uso da nova função. Melhorar a resposta de erro ao usuário.

  if (Trim(FArquivo) = '') or (Trim(FPath) = '') then
    raise Exception.Create(ACBrStr(IIF(Trim(FPath)='','Caminho não informado!','Nome do arquivo não informado!')));

ACBrUtil - Nova função

function IIF(_Condicao: Boolean; _True, _False: Variant): Variant;
{:: IIF - Condicional iif(x,y,z) ::Adolfo Jefferson 01/01/2009 18:54:12 ::}
begin
  if _Condicao then
    Result := _True
  else
    Result := _False;
end;

ACBrUtil.pas

ACBrSpedFiscal.pas

[EMBarbosa]

Já existe a função IfThen no Delphi/Lazarus. Não entendi onde você quer chegar.

[i-master]

Boa tarde

 

Bem é uma função de uma só linha. Que uso normalmente. Se possível incorporar obrigado. Me desculpe se ofendi.

 

Obrigado.

[EMBarbosa]

Ofendeu pelo quê rapaz?

Eu disse que já existe no Delphi e no Lazarus a função IfThen que faz exatamente isso. Então não precisa adicionar ela no ACBrUtils.pas

Veja: http://delphi.about.com/library/rtl/blrtlIfThen.htm

[i-master]

Tudo bem. Veja fiz o que você sugeriu, veja o resultado.

if (Trim(FArquivo) = '') or (Trim(FPath) = '') then
    raise Exception.Create(ACBrStr(IfThen(Trim(FPath)='','Caminho não informado!','Nome do arquivo não informado!')));

[Pascal Error] ACBrSpedFiscal.pas(420): E2250 There is no overloaded version of 'IfThen' that can be called with these arguments

 

Obrigado

[EMBarbosa]

Gente boa,

   IfThen é um método da unit StrUtils. Essa unit não está adicionada na cláusula uses atual no arquivo ACBrSPEDFiscal.pas. Assim, realmente o compilador não vai detectar se você não adicionar na cláusula uses manualmente.

 

[i-master]

Boa noite

 

Eu sei disto, não deixa de ser uma alteração. Veja estamos eu como você, discutindo uma coisa simples. Pode fazer a gentileza de incluir o iif(x,y,z) veja isto e uma coisa de clippeiro, que fui. Peço esta gentileza.

 

Veja esta era a minha primeira resposta, mas tudo bem. Vamos nos reciclar e corre conforme manda o figurino. Pensando melhor, para que inchar com mais uma Função. Tenho muito respeito, e muito me ajudou o ACBr. Em anexo a inclusão do   StrUtils no ACBrSpedFiscal.

 

 

Obrigado

Editado 18 Junho, 2013 por i-master

[i-master]

O anexo com a alteração necessária para o uso da function ifthen 

 

Novamente, venho reiterar a minha estima ao colegas

 

 

ACBrSpedFiscal.pas

[Isaque Pinheiro]

Bom dia, agradeço por sua iniciativa de contribuição, mas a descrição hj já diz "Caminho ou nome do arquivo não informado!", acredito já ser o suficiente para entendimento de todos, sendo que já está informando o que ocorreu, bastando verificar um ou outro.

Não leve isso como falta de incentivo para sua sugestão, pelo contrário queremos ouvir a sugestão de todos, filtrar e considerar todas que venham enriquecer o projeto.