Delphi

Em algumas aplicações, pode ser necessário verificar se um determinado arquivo está presente no sistema antes de prosseguir com uma ação. No Delphi, essa verificação pode ser feita facilmente usando a função FileExists da unit SysUtils. Como Funciona? A função FileExists retorna True se o arquivo existir e False caso contrário. Isso permite que você…

Função que converte um inteiro para binário function IntToBin(Value: LongInt;Size: Integer): String; var i: Integer; begin Result:=”; for i:=Size downto 0 do begin if Value and (1 shl i)0 then begin Result:=Result+’1′; end else begin Result:=Result+’0′; end; end; end;

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 =…