下面的VB语句怎么转成delphi语句啊?

Question

If (Check1) Then
           Do
           DoEvents
                Call Track_123_Read
                Text1.Text = Temp1
                Text2.Text = Temp2
                Text3.Text = Temp3
                Form1.StatusBar1.SimpleText = "Read Success"
           Loop
        Else
                Call Track_123_Read
                Text1.Text = Temp1
                Text2.Text = Temp2
                Text3.Text = Temp3
        End If主要是Do 
        DoEvents
        ........
      Loop
怎么转换?

Answer 1

while ture do
begin
DoEvents
Call Track_123_Read
Text1.Text = Temp1
Text2.Text = Temp2
Text3.Text = Temp3
Form1.StatusBar1.SimpleText = "Read Success"
end

Answer 2

你这里的 Loop后面怎么没有条件?

Answer 3

loop后面怎么没条件?那不有个else吗?

Answer 4

loop后面跟else,我晕,VB我不懂,你不要昆我啊,
我觉得是
if  thenelseend if是一个结构
doloop是一个结构,但是我觉得少了个布尔类型的条件

Answer 5

具我所知do..loop是一个循环,既然是循环应该有个条件吧,没有条件,难道是死循环?