急，急，急，关于TSringList中查找不同值的问题，研究了半天没搞定

Question

TStringList.Add('a')
TStringList.Add('b')
TStringList.Add('c')
TStringList.Add('a')
TStringList.Add('b') 
TStringList.Add('c') 后，
TStringList中有6个值(a,b,c,a,b,c),如何知道TStringList 中只有三个（a,b,c）不同的值？只要求返回3注意，还有这种情况TStringList.Add('a')  
TStringList.Add('a')  
TStringList.Add('a')  
要求返回值为1

Answer 1

function calc_count(t:TStringList) :integer;
var
  i,c:integer;
  olds:string;
begin
   t.sort;
   c:=0;
   olds:='';
   for i:=0 to t.count-1 do
     if olds<>t.strings[i] then
     begin
         inc(c);
         olds:=t.strings[i];
     end;
     result:=c;
end;

Answer 2

排序，再循环strings[i]，遇到与strings[i-1]不同则加一