菜鸟问题4。。。。

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls;type
  Tmainform = class(TForm)
    RadioGroup1: TRadioGroup;
    Animate1: TAnimate;
    goBitBtn: TBitBtn;
    stopBitBtn: TBitBtn;
    BitBtn1: TBitBtn;
    StaticText1: TStaticText;
    Label1: TLabel;
  procedure gobitbtnclick(sender:tobject);
  procedure stopbitbtnclick(sender:tobject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  mainform: Tmainform;implementation{$R *.dfm}type
avikindarray=array[0..7] of tcommonavi;
avistringarray=array[0..7] of string;
const
avikinds:avikindarray=(
avicopyfile,
avicopyfiles,
avideletefile,
aviemptyrecycle,
avifindcomputer,
avifindfile,
avifindfolder,
avirecyclefile);
avistrings:avistringarray=
('复制文件',
'复制多个文件',
 '删除文件',
 '清空回收站文件',
 '查找计算机',
 '查找文件',
 '查找文件夹',
 '使用文件夹');
 procedure tmainform.gobitbtnclick(sender:tobject);
   animindex:integer;//为什么不对呀~~~晕啊//
 begin
 animindex:=radiogroup1.itemindex;
  with animate1 do
 begin
 StaticText1.caption:=avistrings[animindex];
 commonavi:=avikinds[animindex];
 play(1,framecount,0);
 end;
 end;
 procedure tmainform.stopbitbtnclick(sender:tobject);
 begin
 animate1.stop;
 StaticText1.caption:='停止';
 end;
 end.

Answer 1

少掉Var了
修改
procedure tmainform.gobitbtnclick(sender:tobject);
var   animindex:integer;
 begin
 animindex:=radiogroup1.itemindex;
  with animate1 do
 begin
 StaticText1.caption:=avistrings[animindex];
 commonavi:=avikinds[animindex];
 play(1,framecount,0);
 end;
 end;