Ввод чисел Edit

[Mazepa]

Подскажите как ограничить ввод чисел в Edit начиная от 0.00, 0.01, 0.02, 0.03, 0.04 до 1.00 (с шагом 0.01).

[fbus]

в счетчик увеличения вставь
if (strtofloat)>=1 then abort;

[Mazepa]

Что то не всё понятно, вот есть у меня код программы ,как видоизменить, чтобы соблюдались все необходимые параметры:

1) Вводились числа до сотых долей (от 0,01 до 1,00с шагом 0,01)
2) первое значение может принимать 0 либо 1, после него запятая, т.е. нельзя было ввести число к примеру 00,5 или 005,

var
  vrPos, vrLength, vrSelStart: byte;
  const  I: byte = 1; //i+1, два знака после запятой
begin
  with Sender as TEdit do
  begin
    vrLength := Length(Text);
    vrPos := Pos(decimalseparator, Text);
    vrSelStart := SelStart;
  end;
  case Key of
    '0'..'9':
      begin
        if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
          Key := #0;
      end;
    ',', '.':
      begin
        if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
          Key := #0
        else
          Key := decimalseparator;
      end;
    #8: ;
  else
    Key := #0;
  end;
end;

[Stilet]

А не проще взять MaskEdit?

[Mazepa]

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

А не проще взять MaskEdit?

а какой смысл, если первое число может принимать два значения

[psycho-coder]

2) первое значение может принимать 0 либо 1, после него запятая, т.е. нельзя было ввести число к примеру 00,5 или 005,

Два? Вы написали что 0 или 1. Что то непонятно как то.
Юзайте маскедит

[Mazepa]

Сообщение от psycho-coder

Два? Вы написали что 0 или 1. Что то непонятно как то.
Юзайте маскедит

Ну да, два, первое 0 ,а второе 1. Если изначально ввести "0," то может появится ситуация где надо ввести 1,00