这个程序的语法是啥意思呢？

Question

这是一段代码，请解delphi来代码解释它！我不会明白它的意思！Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Slepp
Dim S As String
Private Sub Form_Load()
Me.Width = 6500Me.Show
Me.RefreshS = "我不会用VB呀，请高人帮帮呀。
For i = 0 To Len(S)
Me.Caption = Left(S, i)
Sleep 60
Next
End Sub

Answer 1

大约就是这么个意思了
var
  S: string;procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  Self.Width := 6500;
  Self.Show;
  Self.Refresh;
  S := '这些工具和语言都是互通的';
  for I := 1 to Length(S) do begin
    Self.Caption := Copy(S, 1, I);
    Sleep(60);
  end;
end;
VB代码的第一句是引用kernel32里的API Sleep，在Delphi里，已由SysUtils单元引用，因此不必再显式引用