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;
Compartilhe :Coloca uma máscara numérica em uma String com números function MaskString(Valor: String) : String; begin Result := FormatMaskText(‘!aaaaaaaaaaa;0; ‘,(FormatFloat(‘#,##0.00’,StrToFloat(valor))));…
Compartilhe :O Objeto Clipboard é uma referência à Área de transferência, vejamos como utiliza-lo: Clipboard.gettext Este comando retorna o conteúdo da…
