Прошу помощи в написании события OnSetText

[ParAlexandr]

Добрый день.
В принципе вопрос в теме. Не могу правильно написать обработку события OnSetText. Понимаю что вопрос для кого-то банальный, однако бьюсь уже не один день.

Вот что есть:

type
  { TForm3 }
.......................................
procedure SetText(Sender: TField; const AText: string);
procedure OpenPageControl;
.......................................

implementation

{$R *.lfm}
{ TForm3 }

procedure SetText(Sender: TField; const AText: string);
begin
  try
    Sender.AsFloat := StrToFloat(AText);
  except
    ShowMessage('Введено неверное число');
    Abort;      // Запрещаем очистку ячейки и выход из неё
  end;
end;
..................................

procedure TForm3.OpenPageControl;
var
c:integer;
begin
for c:=2 to 10 do
    begin
      Form3.DBGrid1.Columns[c].Field.OnSetText:=SetText;

end;

При компиляции Lazarus выдает след ошибки:

unit3.pas(159,49) Error: Wrong number of parameters specified for call to "SetText"

unit3.pas(76,18) Error: Found declaration: SetText(TField;const AnsiString);

Код должен обрабатывать набранный текст пользователем в DBGrid. Если пользователь ввел число не правильно, выводится соответствующее сообщение с Абортом ).
Прошу помочь кто чем может... Или навести на мысль.

[p51x]

Вы перед реализацией TForm3. не забыли?

[Serge_Bliznykov]

проиллюстрирую ответ p51x

procedure TForm3.SetText(Sender: TField; const AText: string);
begin
  try

[ParAlexandr]

Сообщение от p51x

Вы перед реализацией TForm3. не забыли?

procedure TForm3.SetText(Sender: TField; const AText: string);

Да конечно, так и описываю процедуру. Просто эксперементировал и назад забыл изменения вернуть.

[ParAlexandr]

Сообщение от Serge_Bliznykov

проиллюстрирую ответ p51x

procedure TForm3.SetText(Sender: TField; const AText: string);
begin
  try

Именно так и пишу. При такой конструкции не работает.

[Аватар]

А декларацию процедуры в Private формы. Процедура должна быть of object

[ParAlexandr]

private
    { private declarations }

Тут ничего не описывал... Подскажите что нужно тут написать или примерчик.

[Serge_Bliznykov]

если я правильно Вас понял, то вам нужно сделать так, как описано в примере:
http://docwiki.embarcadero.com/CodeE...etText_(Delphi)

p.s. вы в DesignTime на форме открываете датасет, редактор полей, выбираете нужное поле и ему назначаете обработчик события?

[ParAlexandr]

Прописал следующее

private
    { private declarations }
    SetText : procedure(Sender: TField; const AText: string) of object;

Закомментировав

//procedure SetText(Sender: TField; const AText: string);

Теперь проект компилируется, однако проверка ввода не выполняется:

procedure SetText(Sender: TField; const AText: string);
begin
  try
    Sender.AsFloat := StrToFloat(AText);
  except
    ShowMessage('Введено неверное число');
    Abort;      // Запрещаем очистку ячейки и выход из неё
  end;
end;

Есть еще у кого-нибудь мысли?

[ParAlexandr]

Сообщение от Serge_Bliznykov

если я правильно Вас понял, то вам нужно сделать так, как описано в примере:
http://docwiki.embarcadero.com/CodeE...etText_(Delphi)

Ваша ссылка открывается со следующим сообщением: There is currently no text in this page. You can search for this page title in other pages, or search the related logs, but you do not have permission to create this page.

p.s. вы в DesignTime на форме открываете датасет, редактор полей, выбираете нужное поле и ему назначаете обработчик события?

Да. Идея такая.