怎样让汉字按一定得时间间隔输出来？(100分)

watt · 2006-09-23

各位大虾大家好，现在我想用Delphi开发这样一个程序：只想在Form窗口里写一些汉字，然后运行程序的时候，可以让那些字按照一定的时间间隔显示出来。请大家帮我想个办法吧（尽量详细一些就最好了），[red]Thanks everybody so much！[/red]

午午 · 2006-09-23

用timer应该可以吧？

happycyp · 2006-09-23

Timer就可以了。每次触发Timer，将Label的Caption添加一个汉字就行了。

watt · 2006-09-23

怎么样触发Timer？各位能否说得更详细一些？我急着要用这个东西

happycyp · 2006-09-23

可在ONFormShow中写： Timer1.Interval :=  1000 ; //表示1秒触发一次 Timer1.Enabled := True ; //启用。 Timer1.Ontimer事件中写： label1.Caption := Label1.Caption + '好'; //加上你要添加字即可

watt · 2006-09-23

谢谢happycyp的热心解答，不过你给出的办法好像不是我想要地效果啊，我的意思是我想输出一段文字，而且一次只输出一个字。

happycyp · 2006-09-23

这么简单的问题变通一下就行了 把这段文字放在一个string 这变量(如s)里就行了（如果不是很长的话），每次从中取一个显示即可。步长为1: OnTimer 事件里写 label1.caption := label1.caption  + s;//或者选择其他控件 inc(i); 初始化时，i设置为1.

arundong · 2006-09-23

楼上的方法正确，但是漏掉了一点： 文字输入完后需要停止，不然要死循环了； 在 OnTimer 事件里需要加入， if i>=n then  (n为文字个数) begin  Timer1.Enabled:=False;//关闭文字输出  exit; end;

chen_liang · 2006-09-23

可在ONFormShow中写： var SList:TStringlist;    i:integer; .......................... SList:=TStringlist.create; SList.add('123'); SList.add('456'); SList.add('789'); i:=0; Timer1.Interval :=  1000 ; //表示1秒触发一次 Timer1.Enabled := True ; //启用。 Timer1.Ontimer事件中写： if i>=s.Count then i=0; label1.Caption := SList; //加上你要添加字即可

watt · 2006-09-23

大家来看看我在OnTimer 事件中写的代码，我是根据happycyp的提示来写的，可是运行之后结果显示出来的是一个问号，不知道是怎么回事，请大家帮我看看吧 var  s:String;  i:Integer; begin  i:=1;  s:='我会好好的';  label1.caption := label1.caption  + s+'  ';  inc(i); end;

happycyp · 2006-09-23

我晕，每次都把i设置成1,服了。 把i设置成全局变量好吗，在FormShow中设置成1就行了。 另外，s也要声明成全局变量。也在Formshow中设置。 希望楼主写程序多动动脑子。 I服了U.

happycyp · 2006-09-23

如果是用汉字，将s声明成WideString;

yuwei0527p · 2006-09-23

汉字是双字节的

rwlin · 2006-09-23

这样的程序可以卖钱嘛？ 哈哈

arundong · 2006-09-23

定义一个数组不就行了：s:array [1..n] of String;  n为你汉字的个数 先将汉字一个一个放进数组，然后在取出来不就行了: var //先设置全局变量  i:Integer;  s:array [1..5] of String; procedure TForm1.FormShow(Sender: TObject); begin  s[1]:='我';  s[2]:='会';  s[3]:='好';  s[4]:='好';  s[5]:='的';  i:=1; end; 在OnTimer 事件中写的代码 begin  if i>=5 then  begin    Timer1.Enabled:=False;//关闭文字输出,不然会死循环的    exit;  end;  label1.caption := label1.caption  + s+'  ';  inc(i); end;

watt · 2006-09-23

多谢各位，我终于做出来了，大家可能会觉得我问的问题太傻瓜了，不过我只是一个初学者，如果我会了的话，我也就不问大家了。不管怎么样，再一次谢谢各位热心的朋友。这个问题讨论到此结束，最后把我的代码写出来，可能对后来者会有帮助的 var             //将i,s设置为全局变量  i:Integer;  s:WideString; procedure TForm1.Timer1Timer(Sender: TObject); begin  if i>12 then  begin    Timer1.Enabled:=False;    Exit;  end;  label1.caption := label1.caption  + s+'  ';  inc(i); end; procedure TForm1.FormShow(Sender: TObject); begin    i:=1;    s:='谢谢各位，我会继续努力的'; end;

怎样让汉字按一定得时间间隔输出来？(100分)

watt

Unregistered / Unconfirmed

午午

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

watt

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

watt

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

arundong

Unregistered / Unconfirmed

chen_liang

Unregistered / Unconfirmed

watt

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

yuwei0527p

Unregistered / Unconfirmed

rwlin

Unregistered / Unconfirmed

arundong

Unregistered / Unconfirmed

watt

Unregistered / Unconfirmed

Similar threads