VB代码如下：
Dim bData() As Byte
。。。
bData(j) = AscB(MidB(Mid(TempStr, i + 1, 1), 1, 1))
strSem1 = bData(j) & strSem1
HexStr = Hex(str1) -->这个可以直接使用delphi中的IntToHex转吗？
代码就上面几个，坐等回复
-
等级
本版专家分：480结帖率 100% -
我有一个vb程序代码需要转为delphi，其中部分VB的代码看的不太懂，希望各位知道的大神多多献策，积分必定奉上！
VB代码如下：
Dim bData() As Byte
。。。
bData(j) = AscB(MidB(Mid(TempStr, i + 1, 1), 1, 1))
strSem1 = bData(j) & strSem1
HexStr = Hex(str1) -->这个可以直接使用delphi中的IntToHex转吗？
代码就上面几个，坐等回复展开阅读全文
-
等级
本版专家分：15859勋章
-
-
红花
2014年10月 Delphi大版内专家分月排行榜第一
2012年12月 Delphi大版内专家分月排行榜第一
-
- 黄花 2012年7月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2013年8月 Delphi大版内专家分月排行榜第三
2012年8月 Delphi大版内专家分月排行榜第三
2012年6月 Delphi大版内专家分月排行榜第三
-
-
var
bData: array of Byte;
TempStr, strSem1, str1, HexStr: WideString;
i,j: Integer;
begin
SetLength(bData, 100);
TempStr := '我超';
j := 11;
i := 0;
bData[j] := PByte(Copy(TempStr, i + 1, 1))^;
strSem1 := IntToStr(bData[j]) + strSem1;
HexStr := IntToHex(StrToIntDef(str1,0), 1);
end;
-
等级
本版专家分：132187勋章
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
名人
2019年 荣获名人称号
2013年 荣获名人称号
-
- 状元 2012年 总版技术专家分年内排行榜第一
-
-
进士
2013年 总版技术专家分年内排行榜第七
2011年 总版技术专家分年内排行榜第五
2009年 总版技术专家分年内排行榜第九
-
-
Dim bData() As Byte
声明bData为字节数组
Hex转16进制，可以用IntToHex
AscB等几个函数都是操作字节或字符的，功能参考
http://blog.sina.com.cn/s/blog_5067ef490100ew5k.html
-
等级
本版专家分：5 -
Dim bData() As Byte
。。。
bData(j) = AscB(MidB(Mid(TempStr, i + 1, 1), 1, 1))
strSem1 = bData(j) & strSem1
HexStr = Hex(str1) -->这个可以直接使用delphi中的IntToHex转吗？
var
bData: array of Byte;
TempStr, strSem1, str1, HexStr: string;
i,j: Integer;
begin
SetLength(bData, 100);
TempStr := '我超';
j := 11;
i := 0;
bData[j] := PByte(Copy(TempStr, i + 1, 1))^;
strSem1 := IntToStr(bData[j]) + strSem1;
HexStr := IntToHex(StrToIntDef(str1,0), 1);
end;
-
等级
本版专家分：480
-
各位的回复我已经收到，明天测试通过之后散分，非常感谢！
-
等级
本版专家分：480
-
原函数的功能已经通过其他方法实现了，这让我学到不同语言不需要直接照搬过来，重要的是理解函数的逻辑及意义
谢谢各位的回复！
- vbs表白代码+整人代码，抖音vbscript表白代码
步骤二：将以下代码复制过去（中文可以改） const title = “爱情测试” const yourname = “嫦娥” const question = “你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。” const info = “你在说谎！不要...
- 求java清屏代码，谢各位大神！！！
求java清屏代码，举个小例子，倒计时就可以了，要清屏代码，谢各位大神！！！！！！！！！！！！！！！！！！！！！！！
- 求救!!! 调用一个DLL文件的函数,提供的调用方法好像是Delphi,VB怎么调用!
接口动态库的文件名为nxmi.dll，HIS直接调用nxmi.dll， 调用之前请先安装读卡环境，安装程序为inst.exe。 ## 3.3 调用方法 对外提供的接口函数： Procedure invoke(params :PChar; result : PChar) ; 我现在在VB...
- C#和VB代码互相转换
在线转换
- 车牌识别系统源代码
本公司主要从事车牌识别算法开发，在车牌识别这行有一定知名度，有成熟的标清车牌识别源代码出售，并附源代码文档说明及VC++、BCB、VB、Delphi、C#等开发包。在市场有五年应用成功案例，代码具有极高商业价值。 ...
- vb 二进制转十进制代码
vb 二进制转十进制代码 不懂如何转换，求详细的过程。大神求带，大神求带，大神求带，大神求带，大神求带，
- VB修改系统时间格式的问题，请大神指点！
VB如何做到修改系统时间格式后不重启电脑和重新加载explorer.exe就能刷新时间格式，就像控制面板设置？
- 用VB代码将十进制小数转二进制，也说下vba自动打印
VB代码十进制小数转二进制？ 一个十进制转二进制的函数 Public Function D2B(D As Integer) As String D2B = "" Do While D > 0 D2B = D Mod 2 & D2B D = D \ 2 Loop End Function Private Sub Form_Load...
- VB6.0无法安装！！！大神指教
在最后会出现未响应的情况， 各位都是大神 求解决！！！
- VB.NET书籍整理,持续更新!
VB.NET书籍整理,包含VB.NET书籍,ASP.NET书籍,ADO.NET书籍 Email-zhangchaochn@qq.com 欢迎技术交流.
- 一个计算机爱好者的不完整回忆（三十）VB与Delphi
既然上一篇承诺了要写一下VB与Delphi，那么就写几句吧。 我用VB做过的软件类型最多，当时什么都想尝试，绝大部分我想尝试的软件或者想法都实现了。应该说，我对VB唯一不满的地方就是发布软件老要带着那个当时看...
- 在线工具--把C#代码转换VB.NET代码(相互转换)
在线工具--把C#代码转换VB.NET代码(相互转换)有不少朋友在网上找资料时经常会遇到想要VB.NET的代码，但却只有C#的代码。自己改又改不大来！本人不经意发现有一个在线工具，使用方便。支持：C#---> VB.NET VB.NET---...
- VB编辑器之代码颜色修改
VB编辑器 VB文本编辑器 VB代码颜色修改 VB背景色修改
- vb调用DLL转成DELPHI出错？
1．原来VB的程序，经执行可以通过 VB 数据类型定义 'Profile infomation Public Type LJIF_PROFILE_INFO fXStart As Single fXPitch As Single End Type 定义 Public Declare Function LJIF_GetProfileData Lib ...
- C#和VB.net代码转换工具
C# 的优势是微软大力推广，网上的开源库也很多，资源不错。 VB.Net相对弱势一些，但是也有许多用户。通过代码转换工具就可以让VB.Net用上C#的各种开源库 当然，我更倾向于VB.Net -> C# ,因为我的C/C++更熟练一些。
- delphi中怎么调用vb的DLL
delphi中怎么调用vb的DLL VB直接生成的是ActiveX dll， 经过改造，也能生成标准的Windows DLL。 不知道你说的VB生成的dll是哪一类？ 1. 标准的Windows DLL， delphi的例子很多。 无需等VB生成的dll。 2. 如果是...
- delphi为什么没人用了？！delphi还有人学吗？！告诉你一个事实：现在全世界有300万程序员每天在用Delphi...
德克萨斯州奥斯汀 -- （美国商业资讯） -...这个最新版本使开发人员能够使用相同的本机代码库为Windows，macOS，iOS，Android和Linux Server创建图形复杂，高性能的应用程序，因此他们花费更少的时间来构建多设备应...
- VB当中的颜色代码
颜色常数 颜色 常数 值 描述 vbBlack &H0 黑色 vbRed &HFF 红色 vbGreen &HFF00 绿色 vbYellow &HFFFF 黄色 vbBlue &HFF0000 兰色 vbMagenta &...amp...
- VB字符与 UTF8格式互转
在VB模块文件中加入下面代码： Private Declare Function MultiByteToWideChar Lib "kernel32 " (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ...
- vb初学者必看
vb
- DirectX修复工具增强版
最后更新：2019-9-4 DirectX修复工具最新版：DirectX Repair V3.9 增强版NEW! 版本号：V3.9.0.29371 大小: 111MB/7z格式压缩，196MB/zip格式压缩，345MB/解压后 其他版本：标准版 在线修复版 ...
- vb如何连接sql数据库？用代码
环境是server2003，sql为2008r2，VB连接数据库，用代码连接
- VB编程调试出现下标越界。怎么处理求大神帮忙！
Private Sub Form_Load() Dim i, j As Integer Dim T(100, 600) As Long Dim q(100, 600) As Long Const x1 = 0.01, t1 = 0.05 * x1 Open "D:\result1.txt" For Output As #1 For i = 0 To 100 ...
- 推荐n个VB.Net to C# (C# to VB.net)代码转换(互换互转)工具
分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！ &...
- 用VB 代码读取 Excel 内容
常规的方法可能是循环读取每一行每一个格子的内容并存入 Recordset 并保存 此处使用Open Recordset 的方式，将 Excel Worksheet 作为一个数据源直接读取 速度将是数理级的差别，几万笔记录的情况下，将由几十秒...
- VB编程：Val字符串转数字，CStr数字转字符串-6
效果显示： ... '转字符串 Text3.Text = Val(Text1.Text) '转为数字 End Sub 备注： 1、Val()函数，字符串转为数字，从左到右依次转换，遇到非数字字符为止，必要时可以使用CDbl()； 2、CSt...
- Vb中如何编码撤销功能，也就是返回上一步的操作！求代码
Vb中如何编码撤销功能，也就是返回上一步的操作！求代码！求解答！
- Delphi与VB有什么区别？
1.Delphi是真正的面向对象编程，而VB是基于对象的编程，这一点是主要的区别； 2.另外，VB中没有多态和继承等面向对象的概念； 3.再者VB是以Basic语言为基础，Basic语言执行效率低的缺点也被保留了下来，所以从运行...
- 十个随机数排列（vb代码）
在VB中，通过编写程序代码，找出最大的数和最小的数很简单，三个数比较大小也很简单，前今天碰到了一个问题，就是，用VB制作一个小程序，实现十个随机数的排列。 我查了一些资料，在网上找到了有几个很有趣的排列...
- 汇编语言程序设计II
汇编语言是一门低级程序设计语言，在数以千计的计算机语言中，有着不可替代的重要地位，广泛地用于开发操作系统内核、设备驱动程序等。随着近年来物联网、嵌入式系统的发展，汇编语言在行业中的地位也再次攀升，在2017年1月的TIOBE排行榜上，再次进入前十。对大多数学习计算机的人士而言，是理解计算机系统核心知识的一个桥梁，在人才培养中也起着特殊的作用。课程面向计算机初学者，介绍汇编语言程序设计基础的部分。 课程的目标是帮助学习者掌握汇编语言程序设计的基础部分。课程分7个部分，循序渐进地介绍寄存器、内存、程序结构、模块化程序设计、中断等内容，课程重视对学习方法的指导和引导，提倡和支持用实践的方式开展学习，目标是培养学习者的自学能力和实践能力，以此支持对最新的汇编语言开发技术的学习。