Показать сообщение отдельно
  #4  
Старый 12.10.2012, 13:15
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от BRESKON
Вручную неудобно, мне подсказали сделать рядом обычный Edit и включить автозаполнение его при изменении содержимого DBEdit'а. Звучит просто, а на практике как сделать не знаю
Под словом "вручную" я это и имел ввиду. Т.е. не компонент автоматически будет расшифровывать, а тебе вручную нужно написать функцию расшифровки.
Для расшифровки удобно использовать событие AfterScroll (и TDBEdit тут не нужен). Примерно так:
Код:
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
  case Table1.FieldByName('Имя поля').AsInteger of
    1: Edit1.Text := 'ДА';
    2: Edit1.Text := 'НЕТ';
    3: Edit1.Text := 'НЕЗНАЮ';
  else
    Edit1.Text := '???';
  end;
end;
Ответить с цитированием