[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;