Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > создать линейный список и проверить наличие в данн

Автор: Линус 2.6.2015, 21:09

Добрый вечер, помогите пожалуйста решить задачу.создать линейный список и проверить наличие в данном списке заданного элемента

Автор: Illusion Dolphin 6.6.2015, 08:49

Код


uses Generics.Collections;

var
  X: TList<Integer>;
begin
  X := TList<Integer>.Create;
  try
    X.Add(1);
    X.Add(2);
    X.Add(3);
    X.Add(5);
    if X.Contains(4) then
      ShowMessage('Has 4')
    else
      ShowMessage('Doesn''t have 4');
    if X.Contains(5) then
      ShowMessage('Has 5')
    else
      ShowMessage('Doesn''t have 5');
  finally
    X.Free;
  end;
end;