TListstring问题

Question

不好意思。你怎么样会犯这样的错误：TStringList写成了TListString？先看看帮助吧。先把Delphi原生的东西弄清楚了再去看第三方的组件。

Answer 1

原来有朋友回答了!哈哈,谢谢了!
TO阿贵:
我英语很柴,见笑了,好的,以后DELPHI原有的东东会仔细看看的TO zswang(zs)　
在程序中,INDEX的值是在范围之内,但是在TIME暂停的时候,又将LIST中的某些
行给删除了,
现在想要的功能是:
LIST中的字符串值,以循环的方式在的LABEL的CAPTION中显示,在程序操作中
会删除掉LIST中的某些"行"
如何让删除之后,循环的内容中将已删除的"行"去掉.(也就是不让重复某些值)
(LIST中的字符来自1.TXT文件,这是文本文件里都是身份证号或者人名)

Answer 2

程序文件我已经上传到网上了， http://www.myxy.net/code.zip麻烦大家帮助一下了，很急，星期一就要给人家

Answer 3

 procedure TForm1.FormCreate(Sender: TObject);
begin
  List := TStringList.Create;
  List.LoadFromFile('1.txt');
  Index := 0;
  Timer1.Enabled:=true;
  Sleep(2000);  ///这里是为了让Timer1的事件起作用 对吧 那么看下面
end;
。。case i of    1:  begin
        Timer1.Enabled:= False;  ///这里也应该加个Sleep(2000);吧 这样才可以确保
                                 ///一致性，因为Timer1事件不会马上停止 
                                 ///这是解决问题的最简单办法吧 试一试吧 
        showmessage(LMDLabelFill2.Caption+'中奖了');
        Label1.Caption:=LMDLabelFill2.Caption;
        List.Delete(index);
        Timer1.Enabled:= true;
        end;

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
begin
  List := TStringList.Create;
  List.LoadFromFile('1.txt');
  Index := 0;
  Timer1.Enabled:=true;
  Sleep(2000);  ///这里是为了让Timer1的事件起作用 对吧 那么看下面
end;
。。
这一句其实是让“闪屏”停2秒钟