Конвертнуть строку в набор чисел

@koskjt · Регистрация: 06.03.2014

Author24 — интернет-сервис помощи студентам

Добрый день, коллеги!
Бьюсь с одним вопросом, может кто направит в правильное русло!

Пользователь выбирает несколько галочек "CheckListBox", после обработки я получаю строковую переменную results:='1,5,17,18';
которую использую в операторе CASE

Delphi

       case (Здесь числовое поле из базы) of
       results: begin Трататат; 
       end
       else begin Трататат;
       end;

Естественно это не работает из-за того, что results строковая переменная.
Собственно вопрос как ее конвертнуть в набор цифр через запятую, чтобы case отрабатывал?

@volvo · 06.03.2014, 11:02

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

как ее конвертнуть в набор цифр через запятую

А надо? Может наоборот, сконвертировать число в строку:

Delphi

  results:='1,5,17,18';
  n := 17;
 
  with TStringList.Create do
  try
    CommaText := results;
    case IndexOf(IntToStr(n)) of // Можно и обычным if-ом
      -1 : ShowMessage('Not in Results');
      else
        ShowMessage('Yeap !!!');
    end;
  finally
    Free;
  end;

@koskjt · 06.03.2014, 11:14 **[ТС]**

Спасибо за помощь, век живи век учись, так подойдет!!

@koskjt 0 / 0 / 0 Регистрация: 06.03.2014 Сообщений: 8
	06.03.2014, 11:14 [ТС]	3
	Спасибо за помощь, век живи век учись, так подойдет!! 0

Опции темы