[arach]

Задача: Есть переменная типа integer. В стринглисте находится много строк.
Нужно найти эту переменную в стринглисте. Если есть - вывести сообщение, что уже есть. Если нет - добавить в стринглист. Что я пробовал:

Код:

function CheckNumb(Numb: integer): String;
var
i: Integer;
Begin
 for i := 0 to database.Count - 1 do begin
 if Numb = StrToInt(database[i]) then
 Continue Else
 Database.Add(IntToStr(Numb)); 
 break; 
 end;
end;

Админ: Пользуемся тегами! При рецедиве последуют санкции!

Разумеется код кривой, и строки добавляются по нескольку раз в стринглист. В первый раз добавляется нормально. Во второй раз, если попробовать добавить туже переменную, она опять добавляется. Помогите

[poli-smen]

Сообщение от arach

Задача: Есть переменная типа integer. В стринглисте находится много строк.
Нужно найти эту переменную в стринглисте. Если есть - вывести сообщение, что уже есть. Если нет - добавить в стринглист.

Код:

function CheckNumb(Numb: Integer): String;
var
  i: Integer;
begin
  for i := 0 to database.Count - 1 do
  begin
    if Numb = StrToInt(database[i]) then
    begin
      ShowMessageFmt('Число %d уже есть в списке', [Numb]);
      Exit;
    end;
  end;
  database.Add(IntToStr(Numb));
end;

[arach]

Огромное спасибо

[dr. F.I.N.]

TStringList.IndexOf сделает за вас работу по поиску элемента в списке.

Метод IndexOf
Получает индекс позиции строки в списке соответствующей данной строке. Если строка не найдена, то возвращается -1.

и все сведется к

Код:

if DataBase.IndexOf(IntToStr(Numb)) = -1
then DataBase.Add(IntToStr(Numb))
else ShowMessage(.....);

[poli-smen]

Сообщение от dr. F.I.N.

TStringList.IndexOf сделает за вас работу по поиску элемента в списке.

Да, я тоже сначала хотел предложить через IndexOf, но в списке могут оказаться такие "числа": "+5" или "015" или "-025" или даже "'$bcd'", которые через IndexOf(IntToStr(Numb)) найти не получится.

[dr. F.I.N.]

Сообщение от poli-smen

Да, я тоже сначала хотел предложить через IndexOf, но в списке могут оказаться такие "числа": "+5" или "015" или "-025" или даже "'$bcd'", которые через IndexOf(IntToStr(Numb)) найти не получится.

Посмотри что пишет ТС в первом топике. По какому принципу образуется список. Отрицательные числа ничем не помешают, а хека там по определению нет. Да и сам вопрос стоит о том, как найти, а не как сравнить разные системы счисления. Та могут оказатсья и восмиричные числа и что угодно....хоть просто неконвертируемые строки.