TStringList.IndexOf сделает за вас работу по поиску элемента в списке.
Цитата:
Метод IndexOf
Получает индекс позиции строки в списке соответствующей данной строке. Если строка не найдена, то возвращается -1.
|
и все сведется к
Код:
if DataBase.IndexOf(IntToStr(Numb)) = -1
then DataBase.Add(IntToStr(Numb))
else ShowMessage(.....);
|