Цитата:
Сообщение от 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;