[sorockinalex]

Опять с той же проблемой, но немного вдругом ракурсе. Решил наконец вынести процедуру эту в DataModule...

Объявил процедуру здесь

Код:

procedure EditKeyPressDigits(Sender: TObject; var Key: Char);

const
...
var
...
implementation...

Сама процедура:

Код:

procedure EditKeyPressDigits(Sender: TObject; var Key: Char);
const
  allowedsymbols: set of Char=['0'..'9', #8, #46];
begin
  if (Key in allowedsymbols) then
  begin
  end
  else key :=#0;
end;

Теперь как её вызвать не знаю. То, что в предыдущем посте отказывается работать:

Код:

  Edit2.OnChange := EditKeyPressDigits;

Со словами:

Incompatible types: method pointer and regular procedure

Где-то в другом месте нужно объявлять процедуру или по-другому объявлять... Подскажите, вечная проблема с вынесением процедур за пределы текущего модуля...