Delphi運用時間控制和隨機數實現打字效果的字符串

Delphi修飾字符串為打字效果，文字一個接一個的出現，看上去挺不錯，Delphi新手可借此來學習一下相關知識，代碼如下：

vIEw source print? 01 unit typing; 02 interface 03 uses 04   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 05   StdCtrls, ExtCtrls; 06 type 07   TForm1 = class(TForm) 08     Button: TButton; 09     Memo: TMemo; 10     Timer: TTimer; 11     procedure ButtonClick(Sender: TObject); 12     procedure TimerTimer(Sender: TObject); 13   private 14     { Private declarations } 15   public 16     { Public declarations } 17   end; 18 var 19   Form1: TForm1; 20   MemoStr: String;  //存放Memo中的字符串 21 implementation 22 {$R *.DFM} 23 procedure TForm1.ButtonClick(Sender: TObject); 24 begin 25         Timer.Enabled := True; //時鐘開是計時 26         MemoStr := 'a';  //初始化MeomoStr 27 end; 28 procedure TForm1.TimerTimer(Sender: TObject); 29 var 30         ch: char; 31 begin 32         ch := char(random(98)+30); //產生一個隨機字符 33         MemoStr := MemoStr + ch;   //將此字符加入MemoStr中 34         Memo.Lines.SetText(PChar(MemoStr));  //以MemoStr的內容更新Memo裡的文字 35 end; 36 end.