我的用timer,然后逐个拷贝粘贴字符。 Str为字符串,I为循环变量(初始值为1),都为全局变量procedure TMainForm.Timer1Timer(Sender: TObject); begin //******************************动态显示提示字幕****************************// Label1.Caption:=Label1.Caption+Str[I]; Inc(I); if I=Length(Str) then begin Label1.Caption:=''; I:=1; end; end;
aa:='hello'
开始时,aa:='h'+N个空格+'ello'
aa:='h'+(N-1)个空格+'ello'
.......
aa:='he'+N个空格+'llo' ;
aa:='he'+(N-1)个空格+'llo'
.......
Str为字符串,I为循环变量(初始值为1),都为全局变量procedure TMainForm.Timer1Timer(Sender: TObject);
begin
//******************************动态显示提示字幕****************************//
Label1.Caption:=Label1.Caption+Str[I];
Inc(I);
if I=Length(Str) then
begin
Label1.Caption:='';
I:=1;
end;
end;