6 Dicas de desenvolvimento na linguagem Delphi
Neste post mostraremos 6 dicas da linguagem de programação Delphi que certamente irão ajudar você aprender e se desenvolver.
Inverte uma string em Delphi
Função que inverte uma string em Delphi, por exemplo:
Function InverteString(Texto:String):String;
Var
X: Integer;
S: String;
Begin
S:=”;
For X := Length(Texto) DownTo 1 do
begin
S := S + Copy(Texto,X,1);
end;
Result := S
End;
Remove um diretório em Delphi
Procedure em Delphi que remove um diretório, por exemplo:
procedure Deltree( cPath: string );
var
search: TSearchRec;
nFiles: integer;
begin
nFiles:=FindFirst( cPath + ‘*.*’, faAnyFile, search );
while nFiles=0 do
begin
if Search.Attr = faDirectory then
begin
if (Search.Name<>’.’) and (Search.Name<>’..’) then
begin
Deltree( cPath + ‘\’ + Search.Name );
RMDir( cPath + ‘\’ + Search.Name );
end;
end
else
begin
SysUtils.DeleteFile(cPath + ‘\’ + Search.Name);
end;
nFiles:=FindNext( Search );
end;
SysUtils.FindClose(Search);
RMDir(cPath);
end;
Como formatar disquetes pelo delphi
Para formatar disquetes usando a API do Windows, por exemplo, utilize as seguintes rotinas:
procedure FormatDriveDialog;
begin
ShellExecute(Application.Handle,’Open’,’C:\Windows\Rundll32.exe’,
‘Shell32.dll,SHFormatDrive’,’C:\Windows’,SW_SHOWNORMAL);
end;
function SHFormatDrive(hWnd : HWnd; Drive, fmtID, Options : LongInt):longint; stdcall; external ‘shell32.dll’;
procedure QuietFormatDrive;
const
SHFMT_ID_DEFAULT = $FFFF;
SHFMT_OPT_QUICK = $0000;
SHFMT_OPT_FULL = $0001;
SHFMT_OPT_SYSONLY = $0002;
SHFMT_ERROR = $FFFFFFFF;
SHFMT_CANCEL = $FFFFFFFE;
SHFMT_NOFORMAT = $FFFFFFFD;
begin
case SHFormatDrive(Handle, 0, SHFMT_ID_DEFAULT, SHFMT_OPT_FULL) of
SHFMT_ERROR : ShowMessage(‘Error on last format, drive may be formatable’);
SHFMT_CANCEL : ShowMessage(‘Last format was canceled’);
SHFMT_NOFORMAT : ShowMessage(‘Drive is not formatable’);
end;
end;
Alternando entre a declaração de procedure na seção interface e implementation
Nesta dica de Delphi, veremos como fazer para alternar entre a declaração de procedure e a seção implementation na interface de desenvolvimento do Delphi, utilize as teclas de atalho a seguir:
Ctrl+Shift+Up – vai para a seção interface
Ctrl+Shift+Down – vai para a seção implementation
Converte um inteiro em hexadecimal em Delphi
A função a seguir, só para exemplificar, converte um inteiro em hexadecimal em Delphi:
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;
Filtra todos os números de uma string
Esta função, filtra todos os números de uma string em Delphi
Function SoNumero(Texto : String) : String;
var
Ind : Integer;
TmpRet : String;
begin
TmpRet := ”;
for Ind := 1 to Length(Texto) do
begin
if IsDigit(Copy(Texto,Ind,1)) then
begin
TmpRet := TmpRet + Copy(Texto, Ind, 1);
end;
end;
Result := TmpRet;
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
- 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.
Conhece alguma outra dica ?
Envie para nos 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!
