Цитата:
Сообщение от BRESKON
Так редактировать там нечего, да/нет/незнаю других данных не будет. А можно по подробнее про вычисляемое поле? Или хотя бы примерчик использования.
|
Сделай двойной клик по TDataSet и в появившемся окне нажми правой кнопкой мыши. Добавь нужные поля через "Add fields..." или все поля через "Add all fields". Потом вызови это меню ещё раз и выбери "New field..." и в появившемся диалоге введи имя нового поля, его тип (String), размер, отметь опцию "Calculated" и нажми "OK".
Потом прицепи к этому новому полю свой TDBEdit и в обработчике OnCalcFields у TDataSet сделай примерно такой обработчик:
Код:
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var
s: String;
begin
case DataSet.FieldByName('Имя обычного поля').AsInteger of
1: s := 'ДА';
2: s := 'НЕТ';
3: s := 'НЕЗНАЮ';
else
s := '???';
end;
DataSet.FieldByName('Имя вычисляемого поля').AsString := s;
end;