VB代码的含义，我是delphi程序员，请指教！

Question

有一段vb代码，不知道什么意思，主要需要在delphi中实现。如果能够翻译到delphi中最好；或者给解释一个下述语句所表达的意思：
1。AscCode = Asc(Mid$(str_Src, i, 1))
2。str_Ret = str_Ret & Chr$(AscCode)
3。BmpFileH = FreeFile
                Open App.Path & "\BaseInfo.txt" For Binary Access Write As #BmpFileH
                Put #BmpFileH, , TmpCHMsg()
                Close #BmpFileH

Answer 1

1。AscCode = Asc(Mid$(str_Src, i, 1))
返回str_Src字符串第i位的字符的ascii码给变量AscCode2。str_Ret = str_Ret & Chr$(AscCode)
变量str_Ret等于它本身拼上AscCode值对应的字符3。BmpFileH = FreeFile
                Open App.Path & "\BaseInfo.txt" For Binary Access Write As #BmpFileH
                Put #BmpFileH, , TmpCHMsg()
                Close #BmpFileH
第一行 取得系统空闲文件号
第二行 以写操作方式打开当前路径下BaseInfo.txt这个文件，不存在则新建
第三行 输出TmpCHMsg()到打开的文件
第四行 关闭文件

Answer 2

1。AscCode = Asc(Mid$(str_Src, i, 1))=str_src中第i个字母的ASCII 值
2。str_Ret = str_Ret & Chr$(AscCode)=str_Ret&str_src中第i个字母
3。BmpFileH = FreeFile
                Open App.Path & "\BaseInfo.txt" For Binary Access Write As #BmpFileH
                Put #BmpFileH, , TmpCHMsg()
                Close #BmpFileH
就是二进制方式打开文件并写记录进去

Answer 3

province_(雍昊)回答了，$有没有都一样的

Answer 4

弄错了。应该给province_(雍昊)5分的！抱歉啊！