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

名前

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

本文 試してみました。 procedure TForm1.FormCreate(Sender: TObject); begin StringGrid1.Cells[0,1] := '2006-09-01'; StringGrid1.Cells[0,2] := '2006-09-02'; StringGrid1.Cells[0,3] := '2006-09-02'; StringGrid1.Cells[0,4] := '2006-09-03'; end; procedure TForm1.Button1Click(Sender: TObject); 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; Memo1.Clear; Memo1.Lines.AddStrings(St); St.Free; end;