Используйте IndexOf(), достаточно будет одного цикла.
Код:
...
for i:= 0 to ListBox1.Items.Count - 1 do
if ListBox2.Items.IndexOf(ListBox1.Items.Strings[i] > -1) then
ListBox3.Ints.Add(ListBox1.Items.Strings[i]);
...
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
|