您所在位置：主题：谁可以帮我将这个vb转成delphi
byebyecl
[专家分：0] 发布于 2006-06-11 21:54:00
Private Sub Option1_Click()
Dim sInput, iLen
Dim iSum
Dim i
iSum = 0
sInput = Text1.Text
For i = 1 To Len(sInput)
If Asc(Mid(sInput, i, 1)) >= 65 And Asc(Mid(sInput, i, 1)) <= 97 Then iSum = iSum + 1
Next
Label1.Caption = iSum
End Sub
Dim sInput, iLen
Dim iSum
Dim i
iSum = 0
sInput = Text1.Text
For i = 1 To Len(sInput)
If Asc(Mid(sInput, i, 1)) >= 65 And Asc(Mid(sInput, i, 1)) <= 97 Then iSum = iSum + 1
Next
Label1.Caption = iSum
End Sub
