请问，如何将一个字母组成的字符串按顺序，按指定时间一个一个读出。

用个TTimer控件, interval设为1000, label1的caption为空
procedure TForm1.Timer1Timer(Sender: TObject);
var
  a: string;
begin
  a := 'CHINA';
  timer1.Tag := timer1.Tag + 1;  label1.Caption := label1.Caption + a[timer1.tag];  if timer1.tag > length(a) then
  begin
    timer1.tag := 0;
    label1.Caption := '';
  end;
end;

解决方案 »

  1.   

    用个timer 
    然后用copy(0,i,str);
          i:=i+1;
      

  2.   

    string 类型本来就是个字符数组，可可以直接用其Index取出啊！  sWord:string
      sWord:='china'
      for iIndex:=0 to len(sWord)
       sWord[iIndex]……
      

  3.   

    hkhurus(野牛哥哥) 是对的，照他的方法就可以了！
      

  4.   

    label1.caption:='';
    for i:=0 to length(s) do//s为你的字符串
      begin
        label1.caption:=label1.caption+s[i];
        sleep(5000);
      end;