DbGrid: Изменить значение редактируемого текста

[Vadimus]

Дано: Обычный DBGrid.
Задача: В определенном (денежном) столбце при редактировании текста, при вводе '=' производить вычисление введного выражения.
Пример: пользователь вводит "10,5+39,50=", программа перехватывает ввод, производит калькуляцию, и заменяет текст на "50,00".
Проблема: не могу найти вводимый текст, только тот что уже в наборе данных.

Пока писал, придумал вариант: отслеживать ввод пользователя по DBGRid.OnKeyUp, отслеживать все его клики и т.п., калькулировать и результат писать сразу в датасет. Может есть вариант попроще, может кто делал подобное?

Добавлено спустя 37 минут 30 секунд:

Пока писал, придумал вариант: отслеживать ввод пользователя по DBGRid.OnKeyUp, отслеживать все его клики и т.п., калькулировать и результат писать сразу в датасет.

К сожалению, этот вариант пока не получается, перехватываю текст "10,5+39,50=", калькулирую, пишу в Table['Sum'], получаю ошибку EDatabaseError: "10,5+39,50=" is not a valid float.

[Vadim]

Vadimus
Попробуйте запяту поменять на точку.

[Vapaamies]

отслеживать ввод пользователя по DBGRid.OnKeyUp, отслеживать все его клики и т.п.

На самом деле намного правильней перекрыть событие OnSetText у поля (TCurrencyField или TFloatField) и вычислять там.

[Vadimus]

Vadimus
Попробуйте запяту поменять на точку.

Увы, это не поможет.

На самом деле намного правильней перекрыть событие OnSetText у поля (TCurrencyField или TFloatField) и вычислять там.

Вот оно! Спасибо!!! Затык преодолён!

Добавлено спустя 33 минуты 55 секунд:

На самом деле намного правильней перекрыть событие OnSetText у поля (TCurrencyField или TFloatField) и вычислять там.

А вот блин, выявился нелепый глюк, делаю так в OnSetText:

Код: Выделить всё

(Sender as TField).AsCurrency:=Calculate(aText);

И DBGrid начинает вести себя как последний мерзавец - глючит, мешает вводить текст, ужас. Или я в обработчике сделал ересь, или лазарус (1.0) глючит.

[Vapaamies]

Это уже надо отладчиком смотреть. По логике вещей, OnSetText должен вызываться один раз -- в конце, когда пользователь переходит на другое поле, либо фиксирует запись, т. е. выходит из режима редактирования. А по описанному поведению создается впечатление, что событие вызывается на ввод каждого символа.

Честно говоря, даже не помню, как это должно быть в VCL, потому как такие штуки уже давно не пишу.

[amateur]

А Вы пытаетесь каждое значение (символ) проганять в процедуре, или Вам нужно при нажатии определенного символа выполнить расчет?

Если второй вариант, то сетка не должна глючить. Но Вы, по идее, используете первый. Благодаря непрерывному перерасчету у Вас и проц. должен взбеситься, а не только сетка. Хотя, все зависит от процедуры расчета...

[Vadim]

(Sender as TField).AsCurrency

Sender - это уже TField, поэтому приводить его к TField не надо. Правильно будет так:

Код: Выделить всё

Sender.AsCurrency:=ВычисленноеВыражение;

[Vadimus]

По логике вещей, OnSetText должен вызываться один раз -- в конце, когда пользователь переходит на другое поле, либо фиксирует запись,

Да, так и есть в самом конце редактирования OnSetTextВызывается, 1 раз.

А Вы пытаетесь каждое значение (символ) проганять в процедуре, или Вам нужно при нажатии определенного символа выполнить расчет?

Меня в принципе устроит любой вариант, лишь бы TDBGrid не надо было бы переписывать.

Если второй вариант, то сетка не должна глючить. Но Вы, по идее, используете первый. Благодаря непрерывному перерасчету у Вас и проц. должен взбеситься, а не только сетка. Хотя, все зависит от процедуры расчета...

OnSetText выполняется 1 раз, в конце редактирования поля, после этого начинаются глюки...

Sender - это уже TField, поэтому приводить его к TField не надо.

Действительно, спасибо!

Добавлено спустя 46 минут 51 секунду:
Разобрался в глюке: он начинался с строки дебага "ShowMessage('Text = '+aText);" из OnSetText. Убрал, удивительно, но всё работает. Спасибо.

А вот теперь ещё вопрос, в DBGrid после установки Lazarus 1.0 перестала работать BACKSPACE. Все остальные клавиши работают, приходится идти стрелками и убирать ненужный символ клавишей Del...

[Vapaamies]

Наверняка фильтр стоит в OnKeyPress, чтобы только числа и арифметику вводить, а про VK_BACKSPACE забыли.

[amateur]

Меня в принципе устроит любой вариант, лишь бы TDBGrid не надо было бы переписывать.

, а заодно тогда и лазарь, если чет не получается.

Кстати: а зачем Вам расчет в ячейке? Может проще калькулятор добавить и значение в ячейку вставить (как делают многие)?

[tema]

А что мешает элементарно посмотреть DBGrid.Cells[j,i]? Это текстовое поле в котором содержится текст из данной ячейки.

[Vadim]

DBGrid.Cells[j,i]

А Вы уверены, что у DBGrid это есть?

[Vadimus]

Наверняка фильтр стоит в OnKeyPress, чтобы только числа и арифметику вводить, а про VK_BACKSPACE забыли.

Нет, обработчик уже убрал. В других dbgrid то же самое, backspace не работает. До установки 1.0 всё везде работало.

а заодно тогда и лазарь, если чет не получается.

Во-во.

Кстати: а зачем Вам расчет в ячейке? Может проще калькулятор добавить и значение в ячейку вставить (как делают многие)?

Ну вот сейчас у меня так: открывается форма, вводишь 10+10, нажимаешь Enter чтобы завершить операцию, всё.
А с кнопкой калькулятора: открывается форма, мееедленнно берёшь мышку в руку, ищешь милипусенькую кнопку калькулятора, пытаешься тыкнуть в неё, затем вводишь 10, потом берешь в руки мышку и тыкаешь кнопку "+", потом набираешь 10, затем ищешь кнопку "равно", нажимаешь, получаешь результат, закрываешь калькулятор, нажимаешь enter, чтобы завершить операцию...

А что мешает элементарно посмотреть DBGrid.Cells[j,i]? Это текстовое поле в котором содержится текст из данной ячейки.

В Lazarus такого нет.

[tema]

DBGrid.Cells[j,i]

А Вы уверены, что у DBGrid это есть?

Да вижу. В лазарусе с этим проблема. Это у дельфи можно сделать доступным.

[amateur]

А с кнопкой калькулятора: открывается форма, мееедленнно берёшь мышку..

это все от Вашей фантазии. Клавиши 1..9 + - не учили нажимать? Тот же эффект как и от миши... При фокусе ячейки отобразили диалог, нажали свое вычисление и ентер - значение в ячейке.

А за переписывать лазарус - сарказм...