[Лингвист]

Доброго времени суток!
Есть решённая задача, но в неё необходимо добавить ещё одно условие,- количество символов, вводимых в edit должен быть СТРОГО равен заданному числу(ограничение на максимальную длину поля уже есть, только оно не нужно...).
СУТЬ: я понимаю всё, что енобходимо сделать,- но корректно переложить на программный код не могу
P.S: сразу выложу исходник
Заранее благодарю за помощь

[dimsog]

Edit1.maxLength ?

[PhoeniX]

перед рассчётом проверяй Length(Edit1.Text)... *исход не смотрел...*

[Лингвист]

Вот именно, когда я пытаюсь добавить проверку на длину eit'а то какие то ошибки постоянно появляются...

[Лингвист]

Да я уже понял, что МаксДлина там не нужна,- а задать строгое значение не получается....

[NIch]

Ничего сложного, даю маленькую подсказку...
В одном эдите пишешь длину текста, а во втором его перечисляешь, так вот перечисление начинается с нуля, т.е. во втором едите последний символ Length-1...
Если не понятно сказал, то исправь тут...

Код:

for  i:= 0 to length(edit1.text)-1 do

тогда эта строка

Код:

if copy(edit1.text, i, 1) = ',' then

Будет работать.
За 50 р на веб мани напишу унит полностью)))

[Asinkrit]

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

Код:

for  i:= 0 to length(edit1.text)-1 do

тогда эта строка
[/code]

Во первых, строки нумеруются с единицы, а не с нуля!

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

Код:

if copy(edit1.text, i, 1) = ',' then

Это извращение помоему, можно было прсто написать

Код:

if Edit1.Text[i] = '' then

Да и вообще было лучше двигаться от конца строки к началу, до первого нахождения, а иначе, запятых может быть несколько, и значение будет выведено несколько раз.

[Лингвист]

Да считает то он вообще идеально, по поводу вычисления запятой в смысле!!!

[Лингвист]

Всем спасибо,- тема закрыта!!!))))