小同学再次请教甲鱼老师

icerlau

implementation
var
  i: Integer;
  str1: String = '钓鱼岛是中国的，苍井空是世界的！~~';


{$R *.dfm}

procedure TForm1.img1Click(Sender: TObject);
begin
ShellExecute(Application.Handle,nil,'http://www.tk121.com',nil,nil,SW_SHOWNORMAL);
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin

  If str1[i] <> #0 then   //i 不付初值的话是不是从 0开始，我记得变量如果不付初值的话那么他是随机值啊？请小甲鱼或者高手解释下~
  begin
    Lbl1.Caption:= Lbl1.Caption + str1[i];
    i:= i + 1;
  end
  else
  begin
    i:= 1;
    Lbl1.Caption:= '';
  end;
end;

comeheres

{:7_182:}小甲鱼还没出现