Запретить вводить вторую точку

[qpuTuJlb]

Доброго времени суток,как в Edit запретить вводить более одной точки?

[s-andriano]

Писать свой Edit.

[Вадим Мошев]

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

Доброго времени суток,как в Edit запретить вводить более одной точки?

в обработчике событие onKeyPress

if ('.', Edit1.text) > 0 then key:=chr(0);

[qpuTuJlb]

Сообщение от Вадим Мошев

в обработчике событие onKeyPress

if ('.', Edit1.text) > 0 then key:=chr(0);

ошибка: ')' expected but ',' found

[Serge_Bliznykov]

пропущено указание функции Pos:

if Pos('.', Edit1.text) > 0 then key:=#0;

[Человек_Борща]

А я бы просто в OnKeyPress ставил некий bDotExists в True. Проверка условия занимает меньше тактов чем вызов толпы функций...

[Алексей_2012]

А я бы просто в OnKeyPress ставил некий bDotExists в True. Проверка условия занимает меньше тактов чем вызов толпы функций...

А что это делает?

[Serge_Bliznykov]

Сообщение от Человек_Борща

А я бы просто в OnKeyPress ставил некий bDotExists в True. Проверка условия занимает меньше тактов чем вызов толпы функций...

не, это ещё хуже. Ведь содержимое Edit'а редактируется, поэтому точку вполне могут УДАЛИТЬ. Тогда Вам придётся анализировать содержимое и выставлять/убирать флаг bDotExists - т.е. помимо вышеуказанных действий Вам придётся ещё и признаком заниматься..
будет в OnKeyPress что-то вроде:

 bDotExists  := Pos('.', Edit1.Text)>0;
 if (key='.') and  bDotExists  then key = #0;

На мой взгляд, это ничем не лучше предложенного выше варианта:

 if (key='.') and (Pos('.', Edit1.Text)>0)  then key = #0;

[qpuTuJlb]

спасибо всем

[Человек_Борща]

не, это ещё хуже.

Не совсем так. Признак регулирует Backspace

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  //Не даем вводить ещё 1 точку
  if (Key = '.') and bDotExists then
    Key := #0;

  //Разрешаем ввести точку если её ещё не было
  if (Key = '.') and not bDotExists then
    bDotExists := True;

  //Если жмякаем Backspace и последний символ это точка, то она будет удалена
  if (Key = #8) and bDotExists and (Edit1.Text[Length(Edit1.Text)] = '.') then
    bDotExists := False;
end;