VPF::Хранение нескольких значений в TComboBox

dsf

Дата 30.5.2006, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.5.2006

Репутация: нет
Всего: нет

В базе данный есть таблица tbTeacher. Она имеет следующую структуру:
TeacherID - первичный ключ;
TLastName - фамилия.
Я хочу занести эти данные в компонент TComboBox. Для этого я использую функцию:

Код


TComboBox.AddItem(Item : String: AObject : TObject);

А вот код где я использую эту функцию:

Код


begin
    dbMain.tbTeacher.Close;
    dbMain.tbTeacher.SQL.Clear;
    dbMain.tbTeacher.SQL.Text := 'SELECT * FROM tbTeacher';

    try
        //    Открываем набор данных
        //        
        dbMain.transaction.StartTransaction;
        dbMain.tbTeacher.Open;

        //    Заполняем ComboBox
        //
        Combobox.Clear;

        while not dbMain.tbTeacher.Eof do
        begin
            Combobox.AddItem(
                dbMain.tbTeacher.fieldByName('TLastName').AsString,
                TObject(dbMain.tbTeacher.fieldByName('TeacherID').AsString));

            dbMain.tbTeacher.Next;
        end;

        //    Закрываем набор данных
        //  
        dbMain.tbTeacher.Close;
        dbMain.transaction.Commit;
    except
        dbMain.tbTeacher.Close;
        dbMain.transaction.Rollback;
    end;
end;

Проблема возникает при выводе значения поля TeacherID. Вместо значения первичного ключа я получаю набор непонятных символов. Причем некоторые значения выводятся корректно, а некоторые нет.
Код вывода значения:

Код


for i := 0 to Combobox.Items.Count - 1 do
    ShowMessage('i = ' + IntToStr(i) + '  firstKey = ' + String(ComboBox.Items.Objects[i]))

Поэтому вопрос такой, можно ли использовать данную функцию (имеется ввиду TComboBox.AddItem(Item : String: AObject : TObject);), и если да, то как правильно это сделать?

blur

Дата 30.5.2006, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 126
Регистрация: 9.11.2004

Репутация: нет
Всего: 1

Могу посоветовать использовать компонент TIDComboBox, очень полезный компонент особенно если работаешь с базами данных. Если надо могу скинуть.

dsf

Дата 30.5.2006, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.5.2006

Репутация: нет
Всего: нет

Цитата

Могу посоветовать использовать компонент TIDComboBox...

Спасибо. Я вроде разобрался с этим вопросом. Сделал следующее:

Код


begin    
    Combobox.AddItem(    
        dbMain.tbTeacher.fieldByName('TLastName').AsString,    
        TObject(dbMain.tbTeacher.fieldByName('TeacherID').AsInteger));    
    dbMain.tbTeacher.Next;

Вместо AsString использую AsInteger (т.к. в базе он храниться именно в этом формате). В свою очередь просмотреть значения можно так:

Код


for i := 0 to Combobox.Items.Count - 1 do    
    ShowMessage(IntToStr(Integer(ComboBox.Items.Objects[i])));

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »