delphi TStringList的用法

  给TstringList的索引添加对象。
    SqlStr :='select id,a,b,c  from  a  ';

    if ADOReadCount(SqlStr, Ds)<0 then
    begin

    end;

    while not Ds.Eof do
    begin
        textStingList.Add(Ds.FieldByName('Id').AsString);
        textStingList.Sort;
        Index:= textStingList.IndexOf(Ds.FieldByName('Id').AsString);//id为索引


        textStingList.Objects[Index] := TStringList.Create;//给id添加对象 可以通过id 找到a，b，c
        TStringList(textStingList.Objects[Index]).Add(Ds.FieldByName('a').AsString);
        TStringList(textStingList.Objects[Index]).Add(Ds.FieldByName('b').AsString);
        TStringList(textStingList.Objects[Index]).Add(Ds.FieldByName('c').AsString);
        Ds.Next;

    end;

取出对象值

            index := LedIdStringList.IndexOf(Id);
            TStringList(LedIdStringList.Objects[Index]).Strings[0]//取出索引为id的index ，取出id对应的 a的值

            TStringList(LedIdStringList.Objects[Index]).Strings[1]//取出索引为id的index ，取出id对应的 b的值

            TStringList(LedIdStringList.Objects[Index]).Strings[2]//取出索引为id的index ，取出id对应的 c的值