Работа со столбцами

[brownb]

Есть два столбца
1 1 бла бла
3 1 бла бла
7 2 и тд
10 3
14 4
39 5
42 6
45 7
55 8
63 9
64 10
66 11
70 12
71 13
72 14
99 15
105 16
107 17
114 18
127 19
148 20
149 21
150 22
151 23
152 24
157 25
158 26
162 27
166 28

Первый грузится в мемо1 второй в мемо2.Так вот как сделать проверку то есть если в мемо1 есть такая цыфра то в мемо2 ее оставляем если нету то удаляем эту строчку. То есть на выходе должно получится
1 1
3 3
7 7
10 10
14 14

Искал в гугле ничего не нашел,Хелп!

[Аватар]

Лучше это делать на StringList, первый из них желательно сортировать. На мемо примерно так:

  Memo2.Lines.BeginUpdate;
  for i:=Memo2.Lines.Count-1 downto 0 do
    if Memo1.Lines.IndexOf(Memo2.Lines.Strings[i])=-1 then Memo2.Lines.Delete(i);
  Memo2.Lines.EndUpdate;

[brownb]

Сообщение от Аватар

Лучше это делать на StringList, первый из них желательно сортировать. На мемо примерно так:

  Memo2.Lines.BeginUpdate;
  for i:=Memo2.Lines.Count-1 downto 0 do
    if Memo1.Lines.IndexOf(Memo2.Lines.Strings[i])=-1 then Memo2.Lines.Delete(i);
  Memo2.Lines.EndUpdate;

Спасибо огромное!Работает только с цифрами)Но у меня втой столбец с символами.
то есть

1 1 бла бла
3 1 бла бла
7 2 и тд

Можно както сдлеать чтоб он сравнивал второй столбец по цифре до запятой
1 1, бла бла
3 1,бла бла
7 2, и тд

[Аватар]

Тогда выделяй цифру в одном листе и без всяких IndexOf полный перебор по другому ))

[brownb]

Сообщение от Аватар

Тогда выделяй цифру в одном листе и без всяких IndexOf полный перебор по другому ))

а можно кодом?))