我想要文字一个接一个的显示出来，请问如何做

Question

我想要文字一个接一个的显示出来，请问如何做

Answer 1

思路...用数组,然后用timer控件进行时间控制,循环数组来一个一个的显示.

Answer 2

const Str='abcdefg';procedure ......
var
  i:Integer;
begin
  for i:=1 to Length(Str) do
    Label1.Caption:=Copy(Str,0,i);
  Sleep(SleepTime);
end;
写Timer最好了，多线程，不会暂停主线程。