论坛 › Delphi交流 › 小同学再次请教甲鱼老师

icerlau 发表于 2014-1-8 15:25:47

小同学再次请教甲鱼老师

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

comeheres 发表于 2014-1-8 17:04:50

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

查看完整版本: 小同学再次请教甲鱼老师