Nesta publicação apresentaremos 20 Truques e Dicas de Delphi que certamente irão ajudar você aprender e se desenvolver nesta linguagem de programação.
Como saber o path da aplicação em Delphi
Para saber o path da aplicação no Delphi utilize a seguinte linha:
ExtractFilePath( Application.ExeName )
Localizando valores por proximidade em uma tabela em Delphi
Muitas vezes, necessitamos encontrar registros em uma tabela que sejam próximos ou idênticos a um determinado valor, para isso, podemos utilizar uma das rotinas a seguir.
A primeira solução requer uma chave primária na tabela e a segunda permite a localização sem o uso de chaves primárias (Versão superior 2):
NomeDaTabela.FindNearest([Valor]);
Troque Valor pela variável que contém o código (só procura na chave primária).
ou então:
NomeDaTabela.Locate (‘Campos’, ‘Valores’,[Opções]);
onde Campos são os campos a procurar (separados por ponto-e-vírgula), Valores são os valores
respectivos a cada campo (também separados por ponto-e-vírgula) e Opções são as opções de busca: loPartialKey permite encontrar registros que comecem com o texto digitado, e loCaseInsensitive ignora a diferença entre maiúsculas e minúsculas (ex: Renato Sanches e RENATO SANCHES).
Verificando ano bissexto pelo Delphi : Dicas de Delphi
Para verificar se um ano bissexto no Delphi, utilize e a função abaixo:
function AnoBis(Data: TDateTime): Boolean;
{Verifica se um ano é bisexto, retornando True em caso positivo}
var Dia,Mes,Ano : Word; begin DecodeDate(Data,Ano,Mes,Dia); if Ano mod 4 <> 0 then AnoBis := False else if Ano mod 100 <> 0 then AnoBis := True else if Ano mod 400 <> 0 then AnoBis := False else AnoBis := True; end;
Função que retorna a idade de uma pessoa em Delphi
A Função escrita em Delphi a seguir retorna a idade de uma pessoa:
function idade(Nascimento,DataAtual:string):Integer; var idade,dian,mesn,anon,diaa,mesa,anoa:word; begin decodedate(StrToDate(DataAtual),anoa,mesa,diaa); decodedate(StrToDate(Nascimento),anon,mesn,dian); idade := anoa – anon; if mesn > mesa then begin idade := idade; end; if(mesn > mesa) and (dian > diaa)then begin idade := idade; end; result := idade; end;
Função Delphi que insere a barra invertida de diretório após o nome especificado
Nesta dica de Delphi, apresentamos a função a seguir que insere a barra invertida de diretório após o nome especificado
function BarraInvert(value:string):string; begin if (value[length(value)]<>’\’) then begin result := value + ‘\’; end else begin result := value; end; end;
Retorna os programas que estão abertos na memória : Dicas de Delphi
A função Delphi a seguir retorna os programas que estão abertos na memória.
Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall; // listbox1.clear; // EnumWindows( @EnumWindowsProc, integer(listbox1)); var caption: Array [0..128] of Char; begin Result := True; if IsWindowVisible(Wnd) and ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or (HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow)) and ((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0) then begin SendMessage( Wnd, WM_GETTEXT, Sizeof( caption ),integer(@caption)); lb.Items.AddObject( caption, TObject( Wnd )); end; end;
Como fazer um TMemo receber um arquivo texto ? : Dicas de Delphi
Para fazer com que um componente TMemo receba o conteúdo de um arquivo texto, utilize o seguinte comando:
Memo1.lines.loadfromfile(‘Arquivo.txt’);
Função em Delphi que retorna o IP
Esta Função Delphi retorna o seu número de IP, desde que você esteja conectado com a internet.
Inclua na seção uses: WinSock
function GetLocalIP : string; type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I : Integer; GInitData : TWSADATA; begin WSAStartup($101, GInitData); Result := ”; GetHostName(Buffer, SizeOf(Buffer)); phe :=GetHostByName(buffer); if phe = nil then Exit; pptr := PaPInAddr(Phe^.h_addr_list); I := 0; while pptr^[I] <> nil do begin result:=StrPas(inet_ntoa(pptr^[I]^)); result := StrPas(inet_ntoa(pptr^[I]^)); Inc(I); end; WSACleanup; end;
Zeros à esquerda : Dicas de Delphi
Esta função em Delphi insere Zeros à esquerda
Function InsertZeros(nInt,nTam:Integer):String;
Var
X: String;
nI: Integer;
Begin
For nI := 1 To nTam Do X := X + ‘0’;
Begin
X := X + IntToStr(nInt);
End;
Result := Copy(X,Length(X) – nTam + 1,nTam)
End;
Troca a virgula pelo ponto em um valor Float : Dicas de Delphi
Esta função Delphi troca a virgula pelo ponto em um valor Float
function TrocaVirgPPto(Valor: string): String;
var i:integer;
begin
if Valor <> ‘ ‘ then
begin
for i := 0 to Length(Valor) do
begin
if Valor[i]=’.’ then
begin
Valor[i]:=’,’;
end
else if Valor[i] = ‘,’ then
begin
Valor[i]:=’.’;
end;
end;
end;
Result := valor;
end;
Executa uma url com o Browser padrão : Dicas de Delphi
Esta procedure Delphi executa uma url com o Browser padrão.
procedure ExploreWeb(page:PChar);
// Requer a ShellApi declarada na clausua uses da unit
var
Returnvalue : integer;
begin
ReturnValue := ShellExecute(0, ‘open’, page, nil, nil,SW_SHOWNORMAL);
if ReturnValue <= 32 then
begin
case Returnvalue of
0 : MessageBox(0,’Error: Out of memory’,’Error’,0);
ERROR_FILE_NOT_FOUND: MessageBox(0,’Error: File not found’,’Error’,0);
ERROR_PATH_NOT_FOUND: MessageBox(0,’Error: Directory not found’,’Error’,0);
ERROR_BAD_FORMAT : MessageBox(0,’Error: Wrong format in EXE’,’Error’,0);
else
MessageBox(0,PChar(‘Error Nr: ‘+IntToStr(Returnvalue)+’ inShellExecute’),’Error’,0)
end;
end;
end;
Verificar a impressora, antes de uma impressão
Como montar uma rotina em Delphi para verificar a impressora, antes de uma impressão
Esta função serve para verificar se a impressora está pronta, antes de iniciar uma impressão.
A função retorna true se a impressora está pronta para imprimir.
Function PrinterOnLine : Boolean;
Const
PrnStInt : Byte = $17;
StRq : Byte = $02;
PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. }
Var
nResult : byte;
Begin (* PrinterOnLine*)
Asm
mov ah,StRq;
mov dx,PrnNum;
Int $17;
mov nResult,ah;
end;
PrinterOnLine := (nResult and $80) = $80;
End;
Exemplo de utilização:
If not PrinterOnLine then ShowMessage(‘Atenção! Verifique a Impressora…’);
Obtendo o nome do computador do windows
A função Delphi a seguir obtém o nome do computador através do Registry do Windows.
(Não esqueça de adicionar a unit Registry a cláusula uses de seu projeto)
Uses Registry;
function getcomputer : string;
var registro : tregistry;
begin
registro:=tregistry.create;
registro.RootKey:=HKEY_LOCAL_MACHINE;
registro.openkey(‘System\CurrentControlSet\Services\VXD\VNETSUP’,false);
result:=registro.readstring(‘ComputerName’);
end;
Adicionando à hora atual, um número determinado de horas
A Função Delphi abaixo adiciona à hora atual, um número determinado de horas:
function AdicionaHora(TimeAdd: Integer) : String;
Var
Horas,Min,SomaHoras,SomaMin : Integer;
S, S1 : String;
begin
Horas := Strtoint(Copy(TimetoStr(Time),1,2))+ TimeAdd;
Min := Strtoint(Copy(TimetoStr(Time),4,2))+ TimeAdd ;
SomaHoras := SomaHoras+Horas;
SomaMin := SomaMin + Min;
If SomaMin > 59 Then
begin
if SomaMin mod 60 = 0 Then
begin
Somahoras := Somahoras+(Somamin div 60);
Somamin := 0;
end
else
begin
SomaHoras := SomaHoras + (SomaMin div 60);
SomaMin := SomaMin mod 60;
end;
end;
If Somamin = 0 Then
begin
S := ’00’;
end
else
begin
S := InttoStr(Somamin);
end;
If Length(InttoStr(SomaHoras)) = 1 Then
begin
S1 := Concat(‘0′,InttoStr(Somahoras));
end
else
begin
S1 := InttoStr(Somahoras);
end;
Result := Concat(S1,’:’,S,’:00′);
end;Converte um número decimal em algarismos romanos
Função Delphi a seguir converte um número decimal em algarismos romanos:
function DecToRoman( Decimal: LongInt ): String;
const
Romans: Array[1..13] of String = ( ‘I’, ‘IV’, ‘V’, ‘IX’, ‘X’, ‘XL’, ‘L’,
‘XC’, ‘C’, ‘CD’, ‘D’, ‘CM’, ‘M’ );
Arabics: Array[1..13] of Integer =( 1, 4, 5, 9, 10, 40, 50, 90, 100,
400, 500, 900, 1000);
var
i: Integer;
scratch: String;
begin
scratch := ”;
for i := 13 downto 1 do
while ( Decimal >= Arabics[i] ) do
begin
Decimal := Decimal – Arabics[i];
scratch := scratch + Romans[i];
end;
Result := scratch;
end;
Trunca um número definido de casas decimais em um valor float
A função Delphi a seguir trunca um número definido de casas decimais em um valor float
function TruncVal(Value: Double; Casas: Integer): Double;
var
sPot: String;
iPot: Integer;
x: Integer;
begin
sPot := ‘1’;
for x := 1 to Casas do sPot := sPot + ‘0’;
begin
iPot := StrToInt(sPot);
end;
Result := StrToInt(IntToStr(Trunc(Value * iPot))) / iPot;
end;
Rotina de resgate das variáveis de ambiente DOS
A função Delphi a seguir resgata variáveis de ambiente DOS
Function GetDOSEnvVar(const VarName:String):String;
Var
Len:Integer;
pDosEnv:PChar;
Begin
result :=”;
Len := Length(VarName);
PDosEnv := GetEnvironmentStrings;
If (StrLIComp(PDosEnv, @VarName[1], Len) = 0) And (PDosEnv[Len] =’ ‘) Then
Begin
Result := StrPas(PDosEnv + Len + 1);
Break;
End;
Inc(PDosEnv, StrLen(PDosEnv) + 1);
End;
Uma rotina para verificar erros em toda a aplicação
Para tratar erros de forma genérica em aplicações escritas em Deplhi, em todo o seu programa, insira no método ON CREATE do formulário principal a linha:
Application.OnException:=RotinaGeral;
RotinaGeral é uma procedure na qual deverá constar o código para verificar e enviar as mensagens de erro do seu sistema.
Como desligar, reiniciar, resetar ou dar logout no sistema ?
Para desligar, reiniciar, reiniciar ou dar logout no sistema, use a função ExitWindowsEx, como abaixo:
ExitWindowsEx (uFlags, 0);
onde uFlags é o tipo de reinicialização que vai ocorrer.
Valores de uFlags:
EWX_FORCE – Força todos os processos a terminar.
Ao invés de aparecer a mensagem “A aplicação não está respondendo”, ele força o programa que não responde a finalizar.
EWX_LOGOFF – Faz “logout” do sistema, ou seja, volta à tela de login (a que pede nome e senha)
EWX_POWEROFF – Desliga o computador
(caso o computador não tenha o recurso de auto-desligamento, ele fecha todos os programas e informa que o sistema pode ser desligado).
EWX_REBOOT – Reinicializa o computador (o equivalente a pressionar Ctrl+Alt+Del)
EWX_SHUTDOWN – Fecha todos os programas e informa ao usuário que é seguro desligar o computador.
A função retorna True se funcionar, ou False em outro caso Usuários NT: verifique se o usuário tem o direito a desligar o computador em sua lista de privilégios.
Convertendo a 1ª letra de um edit para maiúsculas
Este truque de Delphi é útil para ser utilizado no cadastramento de nomes.
Se o operador do sistema esquecer de colocar a primeira letra de um nome em minúscula, automaticamente a letra ficará maiúscula.
Para que isto ocorra, coloque um objeto edit no formulário e no seu evento OnChange insira o seguinte código:
var
Variavel : Integer;
begin
With Edit1 do
if Text <> ” then
begin
OnChange := NIL;
Variavel := SelStart;
Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
SelStart := Variavel;
OnChange := Edit1Change;
end;
end;
📒 Livros sobre o Delphi
Veja mais livros sobre desenvolvimento de aplicações em Delphi, acessando aqui!
Materiais e leituras que recomendamos para você:
- 5 Dicas de Desenvolvimento Delphi
- 6 Dicas de desenvolvimento Delphi
- Solução para erro Oracle : [FATAL] [DBT-06103] The port (5.500) is already in use
- Como listar as maiores tabelas ou objetos Oracle
Obrigado
Espero que estas dicas de Delphi tenham sido úteis e tenha lhe ajudado a aumentar seus conhecimentos na linguagem de programação Delphi / Pascal.
Se você gostou, compartilhe estas dicas com um amigo ou participe de nossas redes sociais.
Conhece outras dicas de Delphi ?
Envie para nós em nossa página do Facebook.
Caso queira nos incentivar a criar mais conteúdos como este, prestigie nossos anunciantes.
Um Grande Abraço e até a próxima dica!
