Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как решается вопрос??? [D5, Win95/98]

SZap © (2002-08-15 18:08:00)
Есть 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";

SZap (2002-08-15 19:08:00) [1]
ок, 152361590

Skier (2002-08-15 19:03:00) [2]
>SZap
Т.е. числа для групп, то вводятся пользователем ?
(а вооще-то лучше по ICQ поговорить...)

SZap (2002-08-15 18:54:00) [3]
нет, ниче не выбрасывается, проверяем:
1. все значения находятся в диапазоне от 1 до 79,
2. все значения разные.
если несоответствует, "ругаемся" на юзера и "посылаем" переписывать Edit

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

Skier (2002-08-15 18:42:00) [4]
>SZap
0<А1<А2<А3<А4<А5<А6< 80- это зачем ?
или если не входит в дипазон - то значение выбрасывается ??

SZap (2002-08-15 18:38:00) [5]
так неинтересно, хочется все с нуля, и взгляд другого человека (специалиста) на туже проблему...

Skier (2002-08-15 18:31:00) [6]
>SZap

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

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

SZap (2002-08-15 18:29:00) [7]
Skier: у Вас товарищ "Лыжник" все за деньги?
Я не на рынок вроде пришел...

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

Skier (2002-08-15 18:13:00) [8]
>SZap
Ну...круто ! А сколько заплатишь ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »