Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Пабота с ComboBox [D7, XP]


Паша666 ©   (2006-06-24 22:09:00) 

Здравствуйте
Суть такая
Необходимо в комбобокс загрузить некий список из файла
В файле в каждой строке стоит
'то что должно отобразиться в комбобоксе'='значение передаваемое в программу при выборе данного элемента комбобокса'
Как правильно и оптимально организовать это ?
Спасибо


Loginov Dmitry   (2006-06-27 14:47:00) [1]

Ясно. Тогда немодифицированный [1]

А при OnSelect вот что:

Str := List.Values[ComboBox.Text];


Паша666   (2006-06-27 13:49:00) [2]

Иванов Иван Иванович=слесарь


Loginov Dmitry   (2006-06-27 13:36:00) [3]

> Т.е. значение есть текст.
> Как быть ?


Пример текста???


Паша666   (2006-06-27 13:12:00) [4]

Извиняюсь, но выяснилось что значение не соответствует условию


> если "значение передаваемое в программу при выборе данного
> элемента комбобокса" - целочисленное, то я би использовал
> AddObject


Т.е. значение есть текст.
Как быть ?


Паша666   (2006-06-25 12:18:00) [5]

Спасибо все понял................ :)))


Loginov Dmitry   (2006-06-25 11:53:00) [6]

> имхо, эффективнее было бы ComboBox.Items.Assign


Неужели? А строку ComboBox.Items.Add( Names[I])видели?


> A как из файла данные грузить
> Маску делать при загрузке ?


Слегка модифицирую [1]:

List := TStringList.Create;
with List do
begin
LoadFromFile(your_file_name);
for I := 0 to Count - 1 do
  ComboBox.Items.AddObject(Names[I], Pointer(StrToInt(Values[Names[I]])));
 Free;
end;


Далее смотреть [4]


Паша666   (2006-06-24 23:08:00) [7]

A как из файла данные грузить
Маску делать при загрузке ?


Desdechado   (2006-06-24 22:41:00) [8]

AddObject позволяет в специальное поле типа Pointer что-то записать
можно сделать так
AddObject( 'Иванов', Pointer( 100 ) );
А при выборе узнается код где-то так
n := Integer( combo.items.objects[ combo.itemindex ] );


Паша666   (2006-06-24 22:38:00) [9]


> если "значение передаваемое в программу при выборе данного
> элемента комбобокса" - целочисленное, то я би использовал
> AddObject

Можно поподробнее и если не трудно кусочек кода.......
Файл вида

Иванов=100
Петров=101
Сидоров=130
Цифра это айди человека
При выборе фамилии человека в комбобоксе например в едите на форме должен выводиться айди человека.....


Desdechado   (2006-06-24 22:20:00) [10]

если "значение передаваемое в программу при выборе данного элемента комбобокса" - целочисленное, то я би использовал AddObject

Loginov Dmitry ©   (24.06.06 22:17) [1]
имхо, эффективнее было бы ComboBox.Items.Assign


Loginov Dmitry   (2006-06-24 22:17:00) [11]

Например с помощью TStringList:

List := TStringList.Create
with List do
begin
 LoadFromFile(your_file_name);
 for I := 0 to Count - 1 do
   ComboBox.Items.Add(Names[I])
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо