看看这段代码得如何转化成delphi的(50分)

G

gouer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #1

Public Function compute_bcc(bcc) ; ; ; ; ; 'bcc before compute code
; ; ;Dim b As String
; ; ;Dim i As Integer
; ; ;b = 0
; ; ;For i = 1 To Len(bcc)
; ; ; ; b = b Xor Asc(Mid(bcc, i, 1)) ; ; ; ; ; ; ; ;'逐个字符异或
; ; ;Next i
; ; ; ; b = Right("0" + Hex$(b), 2) ; ; ; ; ; ; ; ; ; ; '把异或的结果变成两位BCC码。
; ; ; ; compute_bcc = b ; ; ; ; ; ; ; ;'返回要发送的字符串

;End Function

 

Z

zfh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #2

Function compute_bcc(integer bcc):String
var
; ;b:String;
; ;i:Integer;
begin
; ;for i := 1 to Len(bcc)
; ; ; b = b xor Asc(Mid(bcc,i,l));
; ;b = Right("0" + Hex$(b),2);
; ;Result := b;
end;

呵呵，好象是这样了。

 

Z

zfh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #3

第7、8行应为
b :=
少了个冒号 ：）

 

Q

Qiuliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #4

to gouer:
你要得到的是十六进制字符串吗？

to zfh:
你写的代码在 vb 中运行还是在 delphi 中运行？

 

Z

zfh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #5

>>Qiuliang:
不要这样嘛，有什么问题就指出来嘛，我的心好脆弱的...

>>gouer:
不好意思，先纠正部分错误，函数用法有误的话我再改。
Function compute_bcc(bcc:integer):String
var
; ;b:String;
; ;i:Integer;
begin
; ;for i := 1 to Len(bcc) do
; ; ; b = b xor Asc(Mid(bcc,i,l));
; ;b = Right("0" + Hex$(b),2);
; ;Result := b;
end;

 

Z

zfh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #6

真是丢人，又忘了，将两处“b =”改为“b :=”。

 

G

gouer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-05

• #7

你们改写的代码可以在delphi5里面运行么？
里面有好多的错误

 

G

gouer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-05

• #8

???
这是vb的代码，我想移植到delphi 里面

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #9

多人接受答案了。