急!本人想编一个字符串加密程序,如何将字符串转化为二进制。在线等待!
解决方案 »
- 关于speech的问题,同一程序在自己的机器上能发音,在别人的机器上不行
- strLen1:=StrLen(edit6.text);出错 急!!
- 请问,如何从串口接收数据并以十六进制显示出来??
- 求助:用Indy的TIdSMTP发送HTML格式的邮件,并且带附件。。。。
- 关于TStringGrid的问题。
- 动态生成FastReport页,横打不能实现,请高手指教!
- 急! 急! 急! 请斑竹帮忙!关于画图的问题?谢谢!
- 谁有串口通讯的控件,给俺copy一份,能用立即给分
- TWebBrowser如何捕捉网页的错误并屏蔽
- 用DELPHI 操作EXCEL
- 请问怎样可以移动界面??
- 高分回报,请问哪里有类似于WIN XP 中的资源管理器左边的下拉伸缩菜单控件下载?
var
i,size:integer;
begin
result:=0;
size:=length(value);
for i:=size downto 0 do
begin
if copy(value,i,1)='1' then
begin
result:=result+(1 shl i);
end;
//10- 16
hexstring:=format('%ox',decvalue);