Обработка TEdit

← →
ss300 (2004-04-12 16:13) [0]

Как обработать TEdit так чтобы до разделительный запятой можно было N символов ввести, а после M ?
например
123456,123
а больше не позволяло ввести что либо лишнее..
помогите начинающему программеру:)
заранеес пасибо

← →
clickmaker © (2004-04-12 16:18) [1]

TMaskEdit
Mask = !999999,999;1;_

← →
ss300 (2004-04-12 16:20) [2]

Извини, но TMaskEdit не канает.. :( надо именно в TEdit

← →
clickmaker © (2004-04-12 16:23) [3]

Экий вы капризный! :) Тогда OnKeyPress перехватывай и в случае достижения лимита Key := #0

← →
TButton © (2004-04-12 16:29) [4]

элементарно
onKeyPress begin if Pos(",",Edit1.Text)=0 then // запятой нет begin if (Length(Edit1.Text)>=maxbefore)and(key<>Ord(",")) then Key:=#0; end else // запятой есть begin if Length(Copy(Edit1.Text,Pos(",",Edit1.Text),Length(Edit1.Text))>=maxafter then Key:=0; end; end;
правда этот вариант не учитывает, то что пользователь может ползать по Edit"у. но счас я немного по соображаю и двину новую мысль.

← →
TButton © (2004-04-12 16:31) [5]

я тут прикинул, вобщем,
1. нужно посчитать
before - число знаков перед запятой
after - число знаков после запятой
2. определить позицию курсора
до или перед запятой
3. проверить достижение лимита согласно результатам предыдущего пункта
4. если лимит достигнут - занулить key

← →
ss300 (2004-04-12 16:54) [6]

Спасибо TButton!

← →
serge35 (2004-04-12 17:08) [7]

Батюшки, уже ракетные комплексы ПВО в качестве ников пошли...

> serge35 (12.04.04 17:08) [7]
> Батюшки, уже ракетные комплексы ПВО в качестве ников пошли...

Типа "попробуй не ответить!" :))

← →
serge35 (2004-04-12 17:24) [9]

надо срочно переименовываться, например в F15 или СУ-31.

Обработка TEdit Найти похожие ветки