Question

谁帮我vb代码变成delphi代码。。。。。。。。。。 下面的代码变成delphi代码就行了。。。

Private Function UY(KC As Integer) As Integer
If KC = 47 Then
KC = 1574
ElseIf KC = 63 Then
KC = 1567
ElseIf KC = 44 Then
KC = 1548
ElseIf KC = 109 Or KC = 77 Then
KC = 1605
...
...
End If
UY = KC
End Function

Private Sub UniText1_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyK Then
en = Not en
End If
End Sub

Private Sub UniText1_KeyPress(KeyAscii As Integer)
If en = False Then
KeyAscii = UY(KeyAscii)
End If
End Sub
就这个代码怎么改都改不了。。。

Answer 1

怎么可能改不了？！
第一个函数，你用 case语句就可以实现，应该非常简单的；第二个函数和第三个函数，找到控件对应的函数处理一下代码判断就行了，我以前也是到处去问人家怎么做的，但那样的结果是把自己惯坏了，不去自己思考不去自己动手做事了，你试试吧，你一定行的。。。

追问

if ,case 都可以。。就是中间的几行变不了。。
UY = KC 和 KeyAscii = UY(KeyAscii)

这两行不知道怎么写。。。。。。

追答

uy=kc====>在delphi中，返回函数值：result:=kc;
keyassii:=uy(keyassii);//这里是调用函数转换一下啊

追问

这样又不行
result:=kc; ===>“[DCC Error] Unit1.pas(424): E2029 ';' expectedbutidentifier 'Result' found”
keyassii:=uy(keyassii);===>“[DCC Error] Unit1.pas(787): E2003 Undeclared identifier: 'KeyAscii'”

追答

这里两条错误我估计一下原因造成的：
第一条错误，你定义的不是函数（Function）而是过程（procedure），你需要定义的是Function
而且返回值是integer的
第二条 是变量定义的问题，你检查一下名称是否统一？！