[Сергей77]

День добрый.

Delphi XE
БД: DBF

Вот такая проблема:
- есть простой запрос с тремя полями: 2 из которых (A и B) обычные текстовые данные, а одно (С) - вычисляемое (на основе двух полей)
- так вот: если я использую CalcFields, то вычисляемое поле НЕ ВЫЧИСЛЯЕТСЯ - всегда возвращается пустая строка

Привожу код

Код:

procedure TDM.Q1CalcFields(DataSet: TDataSet);
begin
  С.AsString := A.AsString + B.AsString;
end;

А и B - простые строки и данные в таблице есть

но что самое интересное - не работает и такой код

Код:

procedure TDM.Q1CalcFields(DataSet: TDataSet);
begin
  С.AsString := 'QQQQQQQQQQQQQQQQQq';
  Showmessage(С.AsString); //все равно возвращает ''
end;

[NumLock]

в Delphi 7 такое смоделировал создав пустой обработчик события OnGetText у fkCalculated. решилось:

Код:

procedure TForm1.Table1CalcGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text:=Sender.AsString;
end;

[Сергей77]

Попробовал у себя (в XE).
Не помогло. Все также возвращает ''

[NumLock]

залей минимальный проект воспроизводящий ошибку

[Сергей77]

Залил кокроткий проект

[NumLock]

на Delphi 7 все нормально.
а если без вычисляемого поля делать:

SQL.Add('SELECT classes.*, classes.b+"-"+classes.a ba FROM classes');