读取txt文件的某一行放进一个Tstring里应该怎样写语句(25)

读取txt文件的某一行放进一个Tstring里应该怎样写语句

Procedure TForm1.FormCreate(Sender: TObject);Var alist: TStringList; atemp: String; S: TStrings;Begin alist := TStringList.Create; Try alist.LoadFromFile('c:/boot.ini'); If alist.Count > 1 Then Begin atemp := alist[1]; End; Finally alist.Clear; alist.Free; End; S := TStringlist.Create; Try S.Add(atemp); Application.MessageBox(PChar(S.Text), 'msg', 64); Finally S.Clear; S.Free; End;End;

Finally alist.Clear; alist.Free; End;为何先 要 alist.Clear?

没什么，感觉干净点。

新手真多分真少。