Nesta publicação apresentaremos 5 Dicas e truques de Desenvolvimento na Linguagem de Programação Delphi.

Como Utilizar Bookmarks em tabelas?

Certamente a utilização de Bookmarks permite ao desenvolvedor “memorizar” um determinado local da tabela para que possa retornar mais tarde, é muito simples e fácil de usar, já que existem apenas três métodos que lhe permitem utilizar este recurso.

Antes de mais nada, para marcar um determinado local em uma tabela necessitamos criar uma nova instancia de TBookmark e executar o método GetBookMark de uma TTable.

var
bmMarcaLocal : TBookmark;
.
.
.
begin
bmMarcaLocal := table.GetBookMark;

Em seguida, para retornar a este local em particular a qualquer momento deve-se utiliza o método GotoBookMark(), este método recebe como parâmetro o TBookmark recebido como retorno de GetBookMark.

table1.GotoBookMark(bmMarcaLocal);

Após utilizar o Bookmark para atender seus objetivos, é importante que a memória utilizada por este recurso seja novamente liberada para o sistema, para executar esta operação utilize o método FreeBookMark.

table1.FreeBookMark(bmMarcaLocal);

Podem ser criados vários Bookmarks para uma mesma tabela, sendo este numero limitado apenas pela quantidade de memória livre no equipamento.

Observação: Cuidado com o uso indevido deste recurso, cada instancia de TBookMark reserva uma determinada porção de memória que só será novamente liberada para ser reutilizada após a execução de um FreeBookmark. Se vários Bookmarks forem criados e não liberados, isso provavelmente poderá comprometer a execução do programa.

Converte um número decimal em binário em Delphi

Para converter um número decimal em binário no Delphi, utilize a seguinte função:

function DecToBinStr(n: integer): string;
var
S: string;
i: integer;
Negative: boolean;
begin
if n < 0 then
begin
Negative := true;
end;
n := Abs(n);
for i := 1 to SizeOf(n) * 8 do
begin
if n < 0 then
begin
S := S + '1';
end
else
begin
S := S + '0';
end;
n := n shl 1;
end;
Delete(S,1,Pos('1',S) - 1);//remove leading zeros
if Negative then
begin
S := '-' + S;
end;
Result := S;
end;

Converte String em Boleano

Para converter um string para boleano, podemos utilizar a função Delphi a seguir:

function strToBoolean(s: string): boolean;
begin
result := ((uppercase(s) = 'TRUE') or
(uppercase(s) = 'T') or
(uppercase(s) = 'YES') or
(uppercase(s) = 'Y') or
(uppercase(s) = 'ON') or
(uppercase(s) = 'O') or
(uppercase(s) = '1'));
end;

Minimizando uma janela de maneira diferente

Você já viu aquele efeito de minimizar uma janela de modo que ela fique minimizada na área de trabalho acima da barra de tarefas do Windows?

Faça o seguinte, crie um projeto novo e coloque a seguinte instrução no evento OnCreate do Form:

SetWindowLong(Application.Handle,GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

Depois execute o projeto e mande minimizar a janela.

Testando se tem CD ou DVD na unidade de CD / DVD

Esta função Delphi permite que se efetue um teste para verificação da presença de CD ou DVD na unidade de CD-ROM / DVD-ROM, antes de mandar executar algum programa ou leitura.

function CDinCDROMDrive(DriveLetter: Char): Boolean;
//
// Testa se tem CD no CD-Rom.
//
var
Mask: string[6];
SearchRec: TSearchRec;
SaveErrorMode: Cardinal;
begin
SaveErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
Mask:= DriveLetter + ':*.*';
{$I-}
if FindFirst(Mask, faAnyfile, SearchRec) = 0 then
begin
CDinCDROMDrive := True
end
else
begin
CDinCDROMDrive := False; {probably -18}
end;
FindClose(SearchRec); {for 32-bit compatibility}
{$I+}
SaveErrorMode := SetErrorMode(SaveErrorMode); {Reset it}
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 – Parte 1
• Como saber se o aplicativo já foi aberto no 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 sejam úteis para você ou tenha lhe ajudado de alguma forma.

Se você gostou, compartilhe estas dicas com um amigo ou participe de nossas redes sociais.

Você pode nos ajudar a criar mais conteúdos como este. Como ?

Prestigie nossos anunciantes conhecendo seus produtos e serviços.

É simples e rápido e você certamente ajuda a gente a crescer.

Um Grande Abraço e até a próxima dica!