a: Tstrings;a := TStringList.Create;
a.LoadFromFile('a.txt');a[0]就是第一行
a[1]就是第二行
如此类推