работа с ComboBox

[NewUser]

как решить следующую задачу:

в БД таблица отделы с полями
id -номер
name - наименование

1. есть форма сотрудники в которой выпадающий список ComboBox
должен заполниться наименованиями отделов

2. по нажатии на кнопку сохранить
в БД в таблицу сотрудники значение id отдела должно записаться в поле sotr_otdel

как это реализовать?

[shade]

Купи книжку по Dephi, прочти и подобные вопросы возникать не будут

или посмотри тут:
http://www.programmersclub.ru/book
http://www.programmersclub.ru/help
С данным вопросом можно попробовать начать с этого http://www.programmersclub.ru/bookdb

[debi12345]

Использовать компонент TLookupComboBox.

В Лазарусе таковой отсутствует ( и врядли появится ввиду сложности реализации ), но похожий есть в RxLIB и JVCL.

Вручную кодировать не рекомендую - зачем прививать дурные привычки ?

[shade]

Вручную кодировать не рекомендую - зачем прививать дурные привычки ?

Кодить мышкой не менее дурная привычка

[Attid]

Кодить мышкой не менее дурная привычка

подерживаю =)

NewUser
если учишься снуля попробуй MSEide.
там с БД проще начинать.

[VirtUX]

Как отключить автоматическое добавление в список по нажатию Enter?
SVN: 23755

[dunin]

Как отключить автоматическое добавление в список по нажатию Enter?

Встречный вопрос: как ВКЛЮЧИТЬ автоматическое добавление в список по нажатию Enter? Я серьезно.

[VirtUX]

В последних ревизиях Lazarus уже отключено автоматическое добавление по моей просьбе.
Автоматическое добавление

Код: Выделить всё

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then ComboBox1.Items.Append(ComboBox1.Text);
end; 

[dunin]

В последних ревизиях Lazarus уже отключено автоматическое добавление по моей просьбе.
Автоматическое добавление

Код: Выделить всё

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then ComboBox1.Items.Append(ComboBox1.Text);
end; 

Ну йомайо... так-то и дурак добавит. Думал какой-то специальный флаг есть...
Спасибо.

[VirtUX]

Вот именно, что флага не было, а автодобавление, по умолчанию, работало. Короче баг был, который уже поправили.

[modbus]

Подскажите, как сделать так, чтобы при нажатии на комбобокс в выпадающем меню был список доступных(существующих) в системе последовательных портов?

[Mr.Smart]

Чтением ветки реестра HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM.
А вообще вы темой случаем не ошиблись?

[modbus]

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

[Mr.Smart]

кусок кода

Код: Выделить всё

procedure TMySerialPorts.BuildList;
var
 reg: TRegistry;
 l: TStringList;
 p: TMySerialPort;
 j: Integer;
begin
  Clear;
  reg:=TRegistry.Create(KEY_READ);
  l:=TStringList.Create;
  try
   reg.RootKey:=HKEY_LOCAL_MACHINE;
   if reg.OpenKeyReadOnly('\HARDWARE\DEVICEMAP\SERIALCOMM') then
    begin
     reg.GetValueNames(l);
     for j:=0 to l.Count-1 do
      begin
       p:=TMySerialPort.Create;
       p.fDev:=ExtractFileName(l[j]);
       p.fName:=reg.ReadString(l[j]);
       fList.Add(p);
      end;
    end;
  finally
   reg.CloseKey;
   reg.Free;
   l.Free;
  end;
  Sort;
  BuildModemList;
end;

[modbus]

Работает... только под х64 некоторые порты выводит просто как COM, без номера.