Выгрузка даных в ComboBox

[Ahmund]

Искал на форуме решение так и подобного не нашол, нужно осуществить следуещее:
есть текстовый файл с таким содержанием:

PHP код:

Радио Шансон&http://shanson.ru
Наше ради&http://nashe.ru
Хит фм&http://shanson.ru
Европа плюс&http://evropa.ru
UA fm радио&http://uafm.ru 


Нужно сделать так чтобы в ComboBox отображалась только:

PHP код:

Радио Шансон
Наше ради
Хит фм
Европа плюс
UA fm радио 


А при нажатии на назвние радио станции сылка открывалась и загружалась в браузере по адресу что написав текстовом файле после знака

PHP код:

& 


Как такое осуществить?
Вывод я сделал из вайла в ComboBox с помощю цыкла а вот как сделать чтоб отображалось только название а не все содержимое файла и при нажатии перекидало по определеной сылке

[Человек_Борща]

Есди список станций динамический, то без TobjectList и

type
  TRadioStantion = Class(Object)
  Title:string;
   Url:string;
  end;

а потом все это связать с комбобоксом.. то будет нормально. Дело на 15 минут.


А если статический, то все просто:
1. В комбобокс грузим только названия
2. в OnChange прописываем case of и там открываем ссылки для элементов..

[Ahmund]

Список будет динамический, нужно чтобы програма каждый раз при обращении к файлу, он будет выполнять роль как бы базы, считывала название и адреса сайтов.
Можна поподробней, как осуществить разделение названия и сылки сайта при вытаскивании из файла и как потом сылку привязать к названию которое будет в ComboBox?

Теоретически я думаю нужно сначала название вывести из файла в масив потом сылку в другой же масив и потом через цыкыл выводить один масив в ComboBox другой как то подвязывать названию при двойном клике. А как его практически реализовать....
Если несложно превести хоть некие фрагменты кода что и как

[Человек_Борща]

я же уже указал вам способ TobjectList он наследуется от Tlist а Tlist это массив. Так что все на много проще.

[Ahmund]

можна поподробней об этом способе? как в маем примере его осуществить, ато я никак немогу вникнуть в суть по вашему примеру выше приведеному. Если несложно небольшой пример кода как это сделать

[Человек_Борща]

Создаёте класс Tobject такого вида:

type
  TRadioStantion = Class(Object)
  Title:string;
   Url:string;
  end;

далее создаёте потомок класса TobjectList'а

uses contrs; //как-то так


type
 TStantionsList=Class(TObjectList)
 private
 function GetStantion(aIndex:Integer):TRadioStantion;
 public
 property Stantions[aIndex:Integer]:TRadioStantion read GetStantion;
 constructor Create;
 destructor Destroy; override; 
 procedure LoadFromFile(aFileName:string);
 end;

скелет готов. А реализация за вами.
Единственно что подскажу это как вернуть нужный тип из списка:

function TStantionsList.GetStantion(aIndex:Integer):TRadioStantion;
begin
Result:=(Items[aIndex] as TRadioStantion); 
end;

Все=) Сами указте новое свойство установки ComboBox'а что не привязывать класс к форме.
В loadFromFile создаём TRadioStantion заполняем его и добовляем в список станций.

Ну вроде все. Остальное за вами.

[Ahmund]

С этими класами, наследованием, а проще нельзя как нить? открыть файл както вычеслить строки необходимые забить в цикыл их?
Мож то что вы говорити и проще будет нежели как я представляю себе, но то что написано с этими класами непойму, и темболие как их реализовать.
Лутше уж написать побольше кода ну чтоб разобратся и понять

[Человек_Борща]

Ну если хотите грабли, то..
При запуске формы забиваем combobo так:

function getname(aStr:string):string;
begin
result:=Copy(aStr,1,Pos('&',aStr)-1);
end;

на OnChange чуть по другому, но хуже.
Снова открываем файл, читаем строку равную номеру текущего элемента combobox'а, только обрезаем все, что до &(включаяя его), примерно так:

function getname(aStr:string):string;
begin
result:=Copy(aStr,Pos('&',aStr)+Length('&'),Length(aStr)-Pos('&',aStr)+Length('&'));
end;

Ну вот вам большие грабли.
1. каждый раз перечитывать файл ИМХО бред.
2. разный Порядок элементов в combobox и файле приведук либо к фэилу либо к не правильным радиостанциям.

И ещё 100 причин, почему это плохо.

Удачи.

[Ahmund]

Так понятней) спасибо.
Да может так и хуже будет и больше ошибок, но так понятней. А с класами не сталкивался, теоретически знаю как и что, но практически не реализую.
Не можете скинуть полностю рабочий пример с класами, чтоб запустить посмотреть его понять что и как работает. Буду очь признателен

[Человек_Борща]

т.е. на халяву написать вам код? Из-за того что вы не хотите, сами разобраться и понять что к чему?