Вызов функции в зависимости от выбора

[drka]

Ребят, появилась проблема. Есть форма с ComboBox. В комбобокс подгружается список сайтов через HTTPSend. В зависимости от выбранного сайта должна подгружаться функция (пишу парсер, для каждого сайта своя функция). Так вот.. Сайтов будет много, и каждый раз через if проверять какой элемент выбран в комбобоксе не рационально, есть какие предложения?

[FaTaL]

Есть, case of

[Iron Monk]

    case ComboBox1.ItemIndex of
      0: Procedure_01;
      1: Procedure_02;
      2: Procedure_03;
      3: Procedure_04;
      4: Procedure_05;
      5: Procedure_06;
    end;

[drka]

Так, ещё забыл указать, что для каждого пользователя, зарегистрированного на сайте, доступны сайты, на которые он купил подписку. И в комбобокс подгружаться будут сайты не по порядку, а те которые он купил. Я case рассматривал как вариант, но мне кажется, что не подойдет

[WinCoder]

Объяви массив имён сайтов как константу. Далее для каждого Item-а ComboBox, пробегай по этому массиву. При совпадении имён, получишь индекс. Выходи из цикла через Break, и уже с индексом работай через Case. Таким образом сайты могут идти и вперемешку.

[drka]

WinCoder, как константа не получится. Я же подгружаю с api сайта список

[Iron Monk]

procedure _exec(s: string);
begin
ShowMessage(s);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
site: string;
begin
site:= ComboBox1.Text;
  case Pos(site, ComboBox1.Text) of
   0 : ;
   1 : _exec(site);
  end;
end;

end.

[Аватар]

var b: Byte;

b:=4;
ComboBox.Items.AddObject('Имя сайта',TObject(b));
или просто (1-ое естесно удобнее)
ComboBox.Items.AddObject('Имя сайта',TObject(4));
...
case Integer(ComboBox.Items.Objects[ComboBox1.ItemIndex]) of
4: тра-ля-ля;
5: другое тра-ля-ля;
end;

[drka]

Спасибо за советы разобрался. Теперь другая проблема) Функция возвращает массив записей то есть

type
   RSite = Record
         id : integer;
         name: string;
         description: string;
   end;
   Site : array of RSite;
   function parseSite(url:string):Site;

   function parseSite(url:string):Site;
   begin
            <парсит>
   end;

Все функции парсинга лежат в отдельном юните. Как я понял нужно для каждой функции объявлять свой Record ибо данные которые возвращает парсер разные.
Так вот в форме в которой по кнопке case проверяется какой сайт я выбрал - вызывается так же функция. Так как она возвращает массив записей мне придется для каждой функции объявлять отдельно новый массив записей? Или можно как нибудь более красивее решить проблему?

[Аватар]

попробуй единую структуру record-a придумать с полем типа, оно поможет при обработке различать нужные и не нужные поля. Так потом удобней будет обрабатывать возвращаемый динамический массив