스트링리스트 중복문자 갯수알아내기

스트링리스트 중복문자 갯수알아내기

 

//Stringlist Overlap count

function TfrmMain.ListOverlapCnt(InOutDate:TStringList; NickName:String ):String;

 var

   ls : TStringList;

   ip , SearName : string;

   ipAddresses : TStringList;

   n : integer;

   I: Integer;

 begin

   SearName := NickName+'님이 들어왔습니다.';

   ipAddresses := TStringList.Create;

   for I := 0 to InOutDate.Count-1 do

   begin

     ipAddresses.Add(InOutDate.Strings[I]);

   end;

 

   ls := TStringList.Create;

   ls.Sorted := true;

 

   for ip in ipAddresses do

   begin

     n := ls.IndexOf(ip);

 

     if n = -1 then

       ls.AddObject(ip, TObject(1))

     else

       ls.Objects[n] := TObject(Integer(ls.Objects[n]) + 1);

   end;

 

   for I := 0 to ls.Count - 1 do

   begin

     if LS.Strings[i] = SearName then

       Result := IntToStr(Integer(ls.Objects[I]));

   end;

 end;