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

Цитата:
Сообщение от 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;
Ответить с цитированием