ThashStringListを結合するには

解決

サンプー  2006-04-13 09:58:52  No: 21012  IP: 192.*.*.*

いつもお世話になります。
comboboxを３つおいて、それぞれにitemを入れています。
THashStringListをcreateし、assignメソッドで夫々のcomboboxのitemは独立して取得できています。この独立した夫々のItemを結合して、１つのTHashStringListを作成したいのですが、方法が判りません。どなたかご教示下さい。
 try
    SLMakerName := THashedStringList.Create ;
    SLMakerName.Assign(CombMakerName.Items);
    SLPopular := THashedStringList.Create ;
    SLMakerName.Assign(Combpopular.Items);
    SLGrade := THashedStringList.Create ;
    SLMakerName.Assign(CombGrade.Items);

中略

finally
    SLMakerName.Free ;
    SLPopular.Free ;
    SLGrade.Free ;
end;

編集 削除
igy  2006-04-13 10:19:39  No: 21013  IP: 192.*.*.*

TComboBoxのitemsプロパティにあるリストの内容を１つずつ、
THashedStringListのAdd メソッド（あるいはAddObject メソッド）で追加する

でどうですか？

編集 削除
おぶじぇくと蒸  2006-04-13 11:31:51  No: 21014  IP: 192.*.*.*

文字列だけなら、
 try
   SLTotal := THashedStringList.Create;
   SLTotal.Text := ComboBox1.Items.Text + ComboBox2.Items.Text + ComboBox3.Items.Text;
   Memo1.Lines.Assign(SLTotal); // 確認
 finally
   SLTotal.Free;
 end;

編集 削除
kkk  2006-04-13 11:44:15  No: 21015  IP: 192.*.*.*

もっと簡単に・・・
THashedStringListはTStringsから派生しているのでAddStringsで一発OK
SLx.AddStrings(SL1);
SLx.AddStrings(SL2);
SLx.AddStrings(SL3);

編集 削除
サンプー  2006-04-14 11:31:51  No: 21016  IP: 192.*.*.*

igyさん、おぶじぇくと蒸さん、kkkさんありがとうございました。kkkさんの方法ですんなり解決できました。

編集 削除