重複を排除してTStringListにADDするには？ (ID:23212)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 StringGrid1の第１列には日付データが0000-00-00のformatで入っています。 これをStringListに重複を許さずに格納したいのですが、 以下のコードでは重複を排除できません。 どこが間違ってますか？ var i:integer; St:TStringList; S:string; begin St:=TStringList.Create; St.Clear; for i:=StringGrid1.RowCount-1 downto 1 do begin S:=StringGrid1.Cells[0,i]; if St.IndexOf(S)=-1 then St.Add(S); end; end;