Compartilhe :Formata valor numérico inserindo mascaras de ponto. function FormatNumber(l: longint): string; var len, count: integer; s: string; begin str(l,…
Compartilhe :Função para verificar um tipo de variável function GetVariantType(const v: variant): string; begin case TVarData(v).vType of varEmpty: result :=…
Compartilhe :Desconecta uma unidade mapeada via programação Delphi Function DesconectaRede(Letra:Pchar;Forcada:boolean):String; // Letra = Letra atribuida a unidade // Forcada =…