Calculated Field наоборот

[DanZer]

В DBGrid есть возможность отображать не то, что на самом деле хранится в базе - Calculated fields, lookup fields... А как быть в тех случаях, когда нужно вводить "не то" значение? Т.е., к примеру, пользователь вводит Да/Нет, а в dbf-ку пишется логическое True/False или 0/1 - в общем, что-нибудь покомпактнее. Через lookup, имхо, расточительно - придется заводить отдельную таблицу и связанные с ней DataSource и DataSet... Есть ли более изящный способ?

[x77]

пример из рабо4его проекта:

Код:

const
  caPersonStatus: array [0..1] of string = (
    'Сотрудник',
    'Посетитель'
  );

...

procedure TfData.qCardsRES2GetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
//  if DisplayText then
    Text := caPersonStatus [Sender.AsInteger];
end;

procedure TfData.qCardsRES2SetText(Sender: TField; const Text: String);
begin
  if Text = caPersonStatus [0] then
    Sender.AsInteger := 0
  else
    Sender.AsInteger := 1;
end;

т.е. "Сотруднику" соотв. 0, а "посетителю" - 1, в базу именно они и пишуться, но пользователь видит словесные   обозна4ения. сами зна4ения вбираются из ДБ-комбобокса, и при вводе их преобразует второй меятод опять таки в 4исла.

[DanZer]

Спасибо, так и сделаю.

[Emp]

Если поле булевское, то значения соответствующие true/false можно прописать в свойстве DisplayValues класса TField через точку с запятой
Table1.Field1.DisplayValues:='Сотрудник;Посетитель'