TStringList的实用功能

1.names与values的使用

var

  tempStrList:TStringList;

begin

  tempStrList:=TStringList.Create;

  tempStrList.Add('sid'+'='+'06111');

  tempStrList.Add('sname'+'='+'Eric');



  ShowMessage(tempStrList[0]+#13#10+

              tempStrList.Names[0]+#13#10+

              tempStrList.Values['sid']+#13#10+

              tempStrList.ValueFromIndex[0]);



  tempStrList.Free;

end;

  运行结果：

 

 2.避免重复元素被添加

  tempList:=TStringList.Create;



  tempList.Sorted:=True;

  tempList.Duplicates := dupIgnore;  //如有重复值则放弃



  tempList.Delimiter:=',';

  tempList.DelimitedText:='1,2,2,3,3,4';



  ListBox2.Items.Assign(tempList);



  tempList.Free;



  //Duplicates 有3个可选值:

  //dupIgnore: 放弃;

  //dupAccept: 结束;

  //dupError: 提示错误.

 

  运行结果：

 

 3.自动排序

    排序函数：

//排序函数,此处为升序，要降序只需将-1和1交换

function   NumberSort(List:   TStringList;   Index1,   Index2:   Integer):   Integer;

var

    Value1,Value2:Integer;

begin

    Value1:=StrToInt(List[Index1]);

    Value2:=StrToInt(List[Index2]);

    if   Value1> Value2   then

        Result:=1

    else

    if   Value1 <Value2   then

        Result:=-1

    else

        Result:=0;

end;

    调用：

  tempList:=TStringList.Create;

  tempList.Add('2');

  tempList.Add('3');

  tempList.Add('1');



  ListBox1.Items.Assign(tempList);

  tempList.CustomSort(NumberSort);   

  ListBox2.Items.Assign(tempList);



  tempList.Free;

     运行结果：

   

    说明：当“避免重复元素”和“自动排序”两个功能同时使用，需要分别使用两

          个StringList,否则“自动排序”功能将无法使用。