小甲鱼delphi学习作业24《围观窗体与组件02》

1.实现字体一个一个出现的代码：

 1 implementation
 2 
 3 {$R *.dfm}
 4 var
 5   str1:string;
 6   n,i:Integer;
 7 
 8 procedure TForm1.FormCreate(Sender: TObject);
 9 begin
10   str1:='大家好，欢迎进入我的编程空间~';
11   i:=2
12 end;
13 
14 procedure TForm1.tmr1Timer(Sender: TObject);
15 
16 
17 begin
18   if i>Length(str1) then
19     i:=2;
20   lbl1.Caption:=Copy(Str1,1,i);
21   i:=i+2;
22 end;
23 
24 end.

 

posted on 2023-10-26 22:53  yanglu_51  阅读(12)  评论(0)  编辑  收藏  举报