Как сделать обработчик более универсальным?

[k1r1ch]

Есть в код такая проблема: на форме четыре Edit'а, и у каждого обработчик на ввод один и тот же:

{Далее идет блок обработчиков для полей ввода}                   {|}
procedure TMainForm.SDKeyPress(Sender: TObject; var Key: Char);  {|}
begin                                                            {|}
  case Key of                                                    {|}
    '0'..'9': ;                                                  {|}
    #8: ;                                                        {|}
    '.', ',':                                                    {|}
      if (Pos(DecimalSeparator, SD.Text) = 0) and                {|}
      (FU.Text <> '') then Key := DecimalSeparator               {|}
      else                                                       {|}
        Key := #0;                                               {|}
    else                                                         {|}
      Key := #0;                                                 {|}
  end;                                                           {|}
end;                                                             {|}
                                                                 {|}
procedure TMainForm.SUKeyPress(Sender: TObject; var Key: Char);  {|}
begin                                                            {|}
  case Key of                                                    {|}
    '0'..'9': ;                                                  {|}
    #8: ;                                                        {|}
    '.', ',':                                                    {|}
      if (Pos(DecimalSeparator, SU.Text) = 0) and                {|}
      (FU.Text <> '') then Key := DecimalSeparator               {|}
      else                                                       {|}
        Key := #0;                                               {|}
    else                                                         {|}
      Key := #0;                                                 {|}
  end;                                                           {|}
end;                                                             {|}
                                                                 {|}
procedure TMainForm.FDKeyPress(Sender: TObject; var Key: Char);  {|}
begin                                                            {|}
  case Key of                                                    {|}
    '0'..'9': ;                                                  {|}
    #8: ;                                                        {|}
    '.', ',':                                                    {|}
      if (Pos(DecimalSeparator, FD.Text) = 0) and                {|}
      (FU.Text <> '') then Key := DecimalSeparator               {|}
      else                                                       {|}
        Key := #0;                                               {|}
    else                                                         {|}
      Key := #0;                                                 {|}
  end;                                                           {|}
end;                                                             {|}
{|}                                                              {|}
                                                                 {|}
procedure TMainForm.FUKeyPress(Sender: TObject; var Key: Char);  {|}
begin                                                            {|}
  case Key of                                                    {|}
    '0'..'9': ;                                                  {|}
    #8: ;                                                        {|}
    '.', ',':                                                    {|}
      if (Pos(DecimalSeparator, FU.Text) = 0) and                {|}
      (FU.Text <> '') then Key := DecimalSeparator               {|}
      else                                                       {|}
        Key := #0;                                               {|}
    else                                                         {|}
      Key := #0;                                                 {|}
  end;                                                           {|}
end;                                                             {|}
{Конец блока}                                                    {|}

Отличие только в Pos(DecimalSeparator, FU.Text). Пытался свести в одну процедуру и написал Self.Text, но так не работает. Как быть?

[Serge_Bliznykov]

в процедуру Вам передаётся Sender :TObject
Вы не догадываетесь, что это за зверь и для чего он нужен?
Поясняю, Sender - это тот объект, на котором произошло данное событие..

Поэтому делаем одну процедурку
(например, UniversalKeyPress1 )
там меняем
Pos(DecimalSeparator, FU.Text) на
Pos(DecimalSeparator, TEdit(Sender).Text)
и всем вашим edit'ам на событие OnKeyPress вешаем одну и ту же эту процедурку.
остальные процедуры можно удалить.

[k1r1ch]

Огромное спасибо! Я пробовал Sender, но без TEdit(), как то об этом не подумал!

[JTG]

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

Pos(DecimalSeparator, (Sender as TEdit).Text)

Тогда если Sender вдруг окажется не TEdit'ом, то будет сгенерировано исключение "EInvalidCast", а если использовать простое приведение типов - программа продолжит работу и где-нибудь в другом месте вылезет access violation либо вообще другое свойство класса будет прочитано как text