Question

请教Delphi2010 TStringlist的问题。

我定义了一个TStringList的变量，打算用来分割字符串，可是总是出错，单步执行时发现一运行到TextList.Create这句时，它就自动回到了程序的最开头，本来我是想直接把数据读入数组的，但是无论怎么读都出错，望各位哥哥姐姐不吝赐教。
unit 设置透明度;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
Var
i,j:Integer;
t:TextFile;
a:array[1..4,1..100]of string;
TextList:TStringList;
s:string;
begin
AssignFile(t,'D:\仓库.in');
Reset(t);
while Not(Eof(t)) do
Begin
Inc(i);
Readln(t,s);
TextList.Create;
TextList.DeliMiter:='/';
TextList.DelimitedText := s;
a[i,1]:=TextList.Strings[0];
a[i,2]:=TextList.Strings[1];
a[i,3]:=TextList.Strings[2];
TextList.Free;
End;
CloseFile(t);
For j:=1 to i do
Begin
ListBox1.Items.Add(a[i,2]);
End;
end;

end.

Answer 1

一楼解释TStringList的实例构建已经很清楚了，不过发现程序还有别的问题：
1、变量i没有赋予初值，编译时会有警告，不应该忽略它
2、TextList的创建和销毁都不应该在while循环里面，应该外置，对属性DeliMiter的赋值也可以外置

追问

1.好像没有弹出警告，不过我也会接受你的建议，谢谢~
2.TextList我是用来分隔字符串的，但是如果外置的话，那不就增加了两倍的时间复杂度？

Answer 2

TextList:=Tstringlist.Create; //创建应该这样写!
并非是TextList.Create;

Answer 3

保存。
或者直接用TFileStream读写文件。
或者尝试下TStringStream试试看。