VB的一段代码,怎么翻译成Delphi(50分)

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-23

• #1

改写VB写的程序
do
Until Not rte.IsRecording
Labstatus.Caption = "正在转换，请等等............."
convform.Enabled = False
ccrpProgressBar1.Increase (1)
ccrpProgressBar1.Increment

Loop
问题是ccrpProgressBar1.INcrease(1)
ccrpProgressBar1.Increment
分别对应Delphi中的哪一句（是ProgressBar的。）
翻译的大部分是
While Not rte.IsRecording do
begin
//前两句，略。
//后两句，不会
end;

 

B

bluefoam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-23

• #2

ccrpProgressBar1.Step:=1;
ccrpProgressBar1.StepIt;
每次步进为1，
最好设： STEP：=FromStream.size/xxxx;通过循环判断控制进度条的速度正好和
完成的步调一致。

 

M

mataijin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-23

• #3

应该是REPEATE
。。。。
UNTIL吧

 

D

devuser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-24

• #4

我的看法还是用Delphi重新写的好，应为VB的设计毕竟不是纯粹的面向对象，但是Delphi
是。

 

小

小毛毛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-24

• #5

我知道我知道！
ccrpProgressBar是一个第三方厂商的ActiveX控件，实际上就是一个ProcessBar，
自己用delphi实现吧！我以前用VB时用过这个东西。

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-26

• #6

rte.RecordStart;
statusbar1.SimplePanel:=true;
Statusbar1.SimpleText:='正在转换文件格式，请稍后......';
Repeat
{ccrpProgressBar1.Increase (1);
ccrpProgressBar1.Increment;}
ProgressBar1.StepBy(1);
ProgressBar1.StepIt;
Until Not rte.IsRecording;
Statusbar1.SimpleText:='转换完毕';
如上，则陷入死循环：（

 

B

bluefoam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-01

• #7

sorry
是使用ProgressBar.STEP:=1;

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-22

• #8

多人接受答案了。