Desenvolvimento de Software

Obtendo o próximo dia útil caso a data informada caia em um fim de semana Function ProximoDiaUtil (dData : TDateTime) : TDateTime; begin if DayOfWeek(dData) = 7 then dData := dData + 2 else if DayOfWeek(dData) = 1 then dData := dData + 1; ProximoDiaUtil := dData; end;

Como saber se o aplicativo já foi aberto Para saber se o aplicativo já foi aberto no Delphi, Insira o código abaixo dentro do arquivo .DPR de sua aplicação: {$R *.RES} begin Application.Title := ”; Application.HelpFile := ”; if HPrevInst = 0 then begin F_Splash := TF_Splash.create(Application); F_Splash.Show; Application.CreateForm(TF_Menu, F_Menu); Application.CreateForm(TF_Error, F_Error); Application.CreateForm(TF_Form1, F_From1); Application.CreateForm(TF_Form2, F_Form2j); Application.Run;…

Marcando um pedaço do código   Algumas vezes, você possui uma unit com muitas linhas de código (umas 1000 por exemplo). Nestas horas fica difícil achar o bloco de código que você quer. Para facilitar isso o Delphi tem uma espécie de “bookmark” de código. Para colocar o bookmark, posicione no lugar onde você quer…

Converte um inteiro em hexadecimal function IntToHex(Num: Word): String; Var L : string[16]; BHi,BLo : byte; Begin L := ‘0123456789ABCDEF’; BHi := Hi(n); BLo := Lo(n); result := copy(L,succ(BHi shr 4),1) + copy(L,succ(BHi and 15),1) + copy(L,succ(BLo shr 4),1) + copy(L,succ(BLo and 15),1); end;

Obtendo o último dia útil caso a data informada caia em um fim de semana   Para obter o último dia útil caso a data informada caia em um fim de semana, utilize a função abaixo: Function DiaUtilAnterior (dData : TDateTime) : TDateTime; begin if DayOfWeek(dData) = 7 then dData := dData – 1 else…

💡 Problema: Mensagem Padrão ao Excluir um Registro Ao clicar no botão de exclusão (-) do DBNavigator no Delphi, surge a caixa de diálogo padrão com a mensagem: “Delete Record?” Essa mensagem pode não ser ideal para usuários que falam português. Para personalizar o texto da confirmação de exclusão, siga os passos abaixo. 🎯 Solução:…

O DBGrid no Delphi permite destacar visualmente registros importantes. Uma das formas de fazer isso é alterando a cor da fonte e aplicando negrito a determinados registros com base em uma condição. Neste tutorial, você aprenderá como mudar a cor dos registros cujas vendas são maiores que R$ 20.000,00. Passo a Passo 1. Acesse o…

No Delphi, é possível restringir o movimento do mouse para uma área específica dentro do formulário. Para isso, utilizamos a função ClipCursor, que define uma região de movimentação limitada. Este tutorial explica como aplicar essa restrição e restaurar a movimentação normal do cursor. Passo a Passo 1. Adicione a Biblioteca Necessária No início do seu…

Função que recebe String de data e converte do formato ORIGEM para formato DESTINO   function InverteStringData(sData, sFormatoOrigem, sFormatoDestino: String):String; // Ex: // InverteStringData(DateToStr(Date),’DD/MM/AAAA’,’AAAA/MM/DD’) var sDia : String; sMes : String; sAno : String; begin if sFormatoOrigem = ‘DD/MM/AAAA’ then begin sDia := Copy(sData,1,2); sMes := Copy(sData,4,2); sAno := Copy(sData,7,4); end else if sFormatoOrigem =…

Quantos fins de semana já se passaram no corrente ano   function WeekNum(const TDT:TDateTime) : Word; var Y,M,D:Word; dtTmp:TDateTime; begin DecodeDate(TDT,Y,M,D); dtTmp := EnCodeDate(Y,1,1); Result := (Trunc(TDT-dtTmp)+(DayOfWeek(dtTmp)-1)) DIV 7; if Result = 0 then begin Result := 51 end else begin Result := Result-1; end; End;

Ao distribuir um sistema desenvolvido em Delphi 2.0 que utiliza banco de dados, é essencial incluir os arquivos corretos para evitar erros, como o Erro $220B, relacionado ao BDE (Borland Database Engine). Quais Arquivos São Necessários? Se sua aplicação usa BDE (Paradox, dBase, InterBase, etc.), será necessário levar os seguintes arquivos: Como Resolver o Erro…