谁能帮忙将此vb 转换为delphi

Question

太长啦，分太少。还是你自己来吧。
把 set a=b 改为 a:=b
把 Dim sMethod As String 改为 var sMethod: string
把 if a then
    end if 
改为 if a then
      begin
      end
把   for i=0 to a 
     next i
改为 for i=0 to a do
     begin
     end
等等等等

Answer 1

抱歉，没有太多时间，你需要自己找本delphi的书看看。
很简单的。而且你的vb程序里面用到一些控件，在delphi里面需要换成其他的组件。光翻译代码是没有用的

Answer 2

daifei(戴绯)言之有理。
dana:你这样做治标不治本，难道你下次还要这样做吗？

Answer 3

主要是想知道语法如何转换,其它控件无所谓.
下面这句语法如何转换?
      
    Set vDoc = WebBrowser1.Document
    List1.Clear
    For i = 0 To vDoc.All.length - 1
        If UCase(vDoc.All(i).tagName) = "INPUT" Then
            Set vTag = vDoc.All(i)
            If vTag.Type = "text" Or vTag.Type = "password" Then
                List1.AddItem vTag.Name
                Select Case vTag.Name
                    Case "Name"
                        vTag.Value = "IMGod"
                    Case "NickName"
                        vTag.Value = "IMGod"
                    Case "Password"
                        vTag.Value = "IMGodpass"
                    Case "EMail"
                        vTag.Value = "[email protected]"
                End Select
            ElseIf vTag.Type = "submit" Then
                vTag.Click
            End If
        End If
    Next i

Answer 4

唉，你是有够懒的。(不知道你的vdoc是什么东东，所以没有转换)
vDoc := WebBrowser1.Document;
List1.Clear;
For i := 0 To vDoc.All.length- 1 do
begin
  If UpperCase(vDoc.All(i).tagName) = 'INPUT' Then
  begin
    vTag := vDoc.All(i);
    If (vTag.Type = 'text') Or (vTag.Type = 'password') Then
    begin
      List1.items.add(vTag.Name);
      case vTag.Name of
        'Name':     vTag.Value := 'IMGod';
        'NickName': vTag.Value := 'IMGod';
        'Password': vTag.Value := 'IMGodpass';
        'EMail':    vTag.Value := '[email protected]'
      Else
        if vTag.Type = 'submit' Then
        vTag.Click;
      end;
    end; 
  end;
end;
    

Answer 5

我没看我对vb的代码不是很懂！danna我给你翻译昨天恶补vb！20分已经很多了！

Answer 6

我没看！我对vb的代码不是很懂！昨天恶补vb，danna我给你翻译！20分已经很多了！