Как решается вопрос???

← →
SZap (2002-08-15 18:08) [0]

Есть Edit в который пользователь вводит через запятую 6 цифр.
Необходимо:
1. присвоить значения переменным: А1,А2,А3,А4,А5,А6:Integer
2. проверить и отсортировать в порядке: 0<А1<А2<А3<А4<А5<А6<80
3. присвоить переменной Group:String перечень символов (номеров групп) (a=1,4,9,13,16; b=3,5,20; ... )
Пример:
если Edit = "15,9,50,2,1,3" тогда:
А1=1, А2=2, А3=3, А4=9, А5=15, А6=50;
Group="abdf";

← →
Skier (2002-08-15 18:13) [1]

>SZap
Ну...круто ! А сколько заплатишь ?

← →
SZap (2002-08-15 18:29) [2]

Skier: у Вас товарищ "Лыжник" все за деньги?
Я не на рынок вроде пришел...

Вообще то это не проблема, просто у меня код очень большой получился, вот и пришел к мастерам посоветоваться как это все можно покороче написать...

← →
Skier (2002-08-15 18:31) [3]

>SZap

> у меня код очень большой получился

Другое дело...вываливай...

← →
SZap (2002-08-15 18:38) [4]

так неинтересно, хочется все с нуля, и взгляд другого человека (специалиста) на туже проблему...

← →
Skier (2002-08-15 18:42) [5]

>SZap
0<А1<А2<А3<А4<А5<А6< 80 - это зачем ?
или если не входит в дипазон - то значение выбрасывается ??

← →
SZap (2002-08-15 18:54) [6]

нет, ниче не выбрасывается, проверяем:
1. все значения находятся в диапазоне от 1 до 79,
2. все значения разные.
если несоответствует, "ругаемся" на юзера и "посылаем" переписывать Edit

И еще, что касается Групп:
1. в каждой группе несколько чисел
2. одно и тоже число в разных группах быть неможет
3. количество групп, какие числа к каким групам относятся определяет юзер

← →
Skier (2002-08-15 19:03) [7]

>SZap
Т.е. числа для групп, то вводятся пользователем ?
(а вооще-то лучше по ICQ поговорить...)

← →
SZap (2002-08-15 19:08) [8]

ок, 152361590

Как решается вопрос??? Найти похожие ветки