Desenvolvimento de Software

Função para verificar um tipo de variável function GetVariantType(const v: variant): string; begin case TVarData(v).vType of varEmpty: result := ‘Empty’; varNull: result := ‘Null’; varSmallInt: result := ‘SmallInt’; varInteger: result := ‘Integer’; varSingle: result := ‘Single’; varDouble: result := ‘Double’; varCurrency: result := ‘Currency’; varDate: result := ‘Date’; varOleStr: result := ‘OleStr’; varDispatch: result :=…

Se você precisa formatar números ou strings adicionando zeros à esquerda para atingir um tamanho fixo, pode utilizar a função StrZero. Função para Adicionar Zeros Abaixo está a implementação da função otimizada: Como Funciona? Exemplo de Uso Benefícios da Função

Neste artigo você vai aprender a transformar uma aplicação Delphi em um applet do Painel de Controle do Windows (arquivo .cpl) — aqueles ícones que aparecem dentro do Painel de Controle e, ao serem clicados, abrem uma janela de configuração. Ideia geral Um .cpl nada mais é do que uma DLL com uma função exportada…

Se você precisa verificar se uma pasta está presente no sistema antes de executar alguma ação, o Delphi oferece uma maneira simples de fazer isso usando a função DirectoryExists. Como Funciona? A função DirectoryExists retorna True se o diretório existir e False caso contrário. Isso permite que você controle o fluxo do seu programa com…

Função que converte um valor Hexadecimal em Integer em Delphi function HexToInt(const HexStr: string): longint; var iNdx: integer; cTmp: Char; begin result := 0; for iNdx := 1 to Length(HexStr) do begin cTmp := HexStr[iNdx]; case cTmp of ‘0’..’9′: Result := 16 * Result + (Ord(cTmp) – $30); ‘A’..’F’: Result := 16 * Result +…

Utilizar o MessageBox com parâmetros var Button: Integer; Mensagem1 : Array[0..79] of Char; Mensagem2 : Array[0..79] of Char; begin StrPCopy(Mensagem1, Edit1.Text + ‘ ‘ + Edit2.Text); StrPCopy(Mensagem2, Edit3.Text + ‘ ‘ + Edit4.Text); Button := Application.MessageBox (Mensagem2,Mensagem1, MB_YESNOCANCEL+ mb_DefButton1+MB_ICONQUESTION); end;

Se você deseja inverter os botões do mouse em um programa Delphi, pode fazer isso facilmente utilizando a API do Windows. Neste tutorial, você aprenderá a inverter os botões do mouse, tornando o botão direito o principal e vice-versa. Como Funciona? O Windows permite modificar o comportamento dos botões do mouse usando a função SwapMouseButton…

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