Sem comentários!

If VReadOnly = True Then
Begin
RBInsc.Enabled := False;
RBCGA.Enabled := False;
RGInstancia.Enabled := False;
CBEnderecoDestinatarioConfirmado.Enabled := False;
DBLCEspecie.Enabled := False;
End
Else
Begin
RBInsc.Enabled := True;
RBCGA.Enabled := True;
RGInstancia.Enabled := True;
CBEnderecoDestinatarioConfirmado.Enabled := True;
DBLCEspecie.Enabled := True;
End;

{Por sorte existe o operador NOT no delphi}

Um exemplo de sistema de segurança…

begin
if (Text = ‘Maiores Débitos’) and (NomeUsuario = ‘Administrador’) then
begin
Application.CreateForm(Tfrm_consulta_nao_ajuizados,
frm_consulta_nao_ajuizados);

frm_consulta_nao_ajuizados.Show;

end

else if (Text = ‘Maiores Débitos’) and (NomeUsuario <> ‘Administrador’)
then

Application.MessageBox(‘Este relatório deve ser solicitado ao
Departamento de informática!!’,’Aviso Auto’, MB_OK+MB_ICONINFORMATION);

end;

Refazendo a Ferrari

Mais um código raro de se ver… Uma função que retorna o substring em PHP…

function StrCopy($String,$Index,$Count)
{
$result = null;
for( $i = 0;$i <= strlen($String); $i++ )
if ( ( $i >= $Index ) && ($Count) ){
$result .= $String[$i];
$Count–;
}
return $result;
}

Ps. Não seria mais justo utilizar a função nativa chamada “substr”??

Conforme o manual:

Descrição
string substr ( string $string, int $start [, int $length] )

substr()retorna a parte de string especificada pelo parâmetro start e length.

<?php
$rest = substr(“abcdef”, 1); // retorna “bcdef”
$rest = substr(“abcdef”, 1, 3); // retorna “bcd”
$rest = substr(“abcdef”, 0, 4); // retorna “abcd”
$rest = substr(“abcdef”, 0, 8); // retorna “abcdef”

// Outra opção é acessar através de chaves
$string = ‘abcdef’;
echo $string{0}; // retorna a
echo $string{3}; // retorna d
?>

Esse tem uma gravidade menor, mas poderia ser melhorado…

Esse tem uma gravidade menor, mas poderia ser melhorado…

Otimizando…

if (trim(lconvenio) = '3688') then
begin
    try
        BuscaTotal(lconvenio, sqArquivo);
        ...
        ...
        ...
    except
        MessageDlg('Houve erro na geração do arquivo de pagamentos!', 
            mtInformation, [mbOk], 0);
    exit;
end
else
begin
    BuscaTotal(lconvenio, sqArquivo);
    ...
    ...
    ...
end;

O que é curioso é que a linha “BuscaTotal(lconvenio, sqArquivo);” é sempre chamada… mas tudo bem 😉

Como fazer uma validação de anos

O código abaixo, em Delphi, tem o objetivo de validar se os 4 últimos caracteres da variável “INSC” é um ano maior que 2001.

if (copy(insc,length(insc)-3,4) = '2002') or (copy(insc,length(insc)-3,4) = '2003') or
   (copy(insc,length(insc)-3,4) = '2004') or (copy(insc,length(insc)-3,4) = '2005') or
   (copy(insc,length(insc)-3,4) = '2006') or (copy(insc,length(insc)-3,4) = '2007') or
   (copy(insc,length(insc)-3,4) = '2008')
then
   insc := copy(insc,1,length(insc)-4)

Agora eu pergunto… estamos no final do ano… Será que vou ter que alterar o programa??? 😀

>>> Claro que sim, mas desta vez faremos o correto:

if ( StrToInt(copy(insc,length(insc)-3,4)) >= 2002 ) then
     insc := copy(insc,1,length(insc)-4);