完整版：
var
i,j,n:Integer;
SL,msl:TStringList;
StrAy:array of array[0..2] of String;
begin
SL:=TStringList.Create;
msl:=TStringList.Create;
SL.LoadFromFile('Dat.txt');
n:=SL.Count
//获得总行数
SetLength(StrAy,n)
//分配空间，Stray[0..n-1,0..2]
for i:=0 to n-1 do
begin
msl.CommaText:=SL
//提取文本
for j:=0 to 2 do
StrAy[i,3]:=msl
//StrAy[0,0]:1 StrAy[0,1]:张一 StrAy[0,2]:1232
end;
//...针对StrAy的操作
SL.Free
//释放资源
msl.Free;
end;
