碧 碧血剑 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-12 #2 var AList: TStringList; begin AList := TStringList.Create; AList.LoadFromFile('a.txt'); if AList.Count > 0 then Result := AList.Strings[AList.Count - 1]; AList.Free; end;
var AList: TStringList; begin AList := TStringList.Create; AList.LoadFromFile('a.txt'); if AList.Count > 0 then Result := AList.Strings[AList.Count - 1]; AList.Free; end;