Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Вниз

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

 
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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.007 c
3-84923
billybons
2002-08-07 10:43
2002.08.26
как программно изменить св-во Grid-a dgRowSelect (синтаксис)


4-85305
Doctor Deejay
2002-06-21 17:06
2002.08.26
Перехват клавиш в ДОС-окне или консоли (FAR)


1-85050
nebula_
2002-08-14 12:09
2002.08.26
Control has no parent window


1-84970
K
2002-08-15 15:44
2002.08.26
Excel, Delphi97 и Delphi2000


1-84994
AlexBeliy
2002-08-16 01:37
2002.08.26
Form with TrayIcon





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский