[BloodFactory]

Есть вот такой обработчик событий:

procedure TForm1.xmin1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9':;
#008:;
',','.':Key:=DecimalSeparator;
else Key:=#001;
end;
end;

Проверяется какая кнопка нажата была.

Смысл в том, что я поместил несколько TEdit на форму, в которые нужно вводить только числа, можно дробные.

Для экономии кода я один обработчик привязал к ним всем.
Буквы, закарючки и прочее не вводится. Работают только цифры, BackSpace и точка или запятая (ставится DecimalSeparator). Но, при этом, этих DecimalSeparator'ов может поставится несколько и он может стоять в начале. Как можно этого избежать, что бы числа вводились корректно?

[Asinkrit]

Один из самых простых способов,

Код:

1 2 3 4 5 6 7 8

procedure TForm1.Edit1Change(Sender: TObject); var   N:Integer; begin   with (Sender as TEdit) do     if TryStrToInt(Text,N) then Tag:=N       else Text:=IntToStr(Tag); end;

после изменения едита, делаем проверку, является ли веденное значение числом, если да, то сохраняем его в Tag компонента, если нет,
то восстанавливает предыдущее значение из Tag-а компонента в Text.

[BloodFactory]

большое спасибо

with (Sender as TEdit) do

вот эта строчка очень порадовала... давно была необходимость в чём-то аналогичном. Благодарю

[NIch]

Функция фильтрует все символы кроме цифр, точки, запятой, BackSpace,
при этом заменяет точку на запятую (в данном примере), не ставит точку первой и ограничивает количество символв после запятой...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

// Функция фильтрации ввода function FilterInputFigures(Edit: TEdit; Key: Char): Char; const   I: byte = 1;//число символов после запятой var   vr_Pos, vrPos, vrLength, vrSelStart: byte; begin   with Edit do   begin     vrLength := Length(Text); // определяем длину текста     vrPos := Pos(',', Text); // проверяем наличие и позицию запятой     vr_Pos := Pos('.', Text); // проверяем наличие и позицию точки     vrSelStart := SelStart; // определяем положение курсора   end;   Result := Key;   Case Key of     '0' .. '9': // если нажата цифра       begin         //если есть запятая и запятая в предпосленей позиции и курсор после запятой         if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then           Result := #0; // "погасить" клавишу       end;     ',', '.': // если нажата точка или запятая       begin         //если есть точка или запятая или курсор в начале или длина текста 0         if (vr_Pos > 0) or (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0)           then           Result := #0 // "погасить" клавишу         else           Result := DecimalSeparator; // всегда заменять точку на запятую       end;     #8:       ; // позволить удаление знаков клавишей 'Back Space'   else     Result { Key } := #0; // "погасить" все остальные клавиши   end; end;

[BloodFactory]

о_О пасибо.... не думал, что так просто всё оказывается))