|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Массивы! Нужна помощь!
Дан любой массив, нужно чтобы следующий элемент после текущего при нажатии кнопки "пропустить" например, становился текущим, а "пропущенный" становился последним... Помогите пожалуйста это реализовать в коде примерном!
|
#2
|
||||
|
||||
а что такое текущий элемент массива???
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
a[i] вроде, я и не совсем уверен что это через массив лучше делать) ПРосто нужно сделать тест с возможностью пропуска вопросов но чтобы они снова (пропущенные) в конце повторялись...
|
#4
|
|||
|
|||
Тест сам готов, но вот как реализовать повторение вопросов не соображу(
|
#5
|
||||
|
||||
с TList не проще будет?
Пишу программы за еду. __________________ |
#6
|
|||
|
|||
У меня вопросы загружаются из xml файла, такое задание... Это с tlist сочетаемо?
|
#7
|
|||
|
|||
Самое простое создать еще один массив и скидывать туда вопросы или ссылки на них при пропуске.
|
#8
|
||||
|
||||
Ну TList поудобнее будет, там уже есть методы удаления и перестановки элементов.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#9
|
|||
|
|||
Есть список вопросов, как я понял, т.е. обычных текстовых строк.
Тогда однозначно TStrinList, сначала методом Add добавляете строки, а далее при помощи Delete, Exchange, Insert крутите ими, как вам будет удобно. |
#10
|
|||
|
|||
Re: Массивы! Нужна помощь!
Доброго всем времени суток!!!
Жутко извиняюсь - если чуток не в тему (хотя судя по названию - самый раз), но тут такое дело: скачал Юнит с таким фрагментом: Код:
const HexLookup: Array[Char] of Byte = ( $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, $FF, $FF, $FF, $FF, $FF, $FF, $FF, 10, 11, 12, 13, 14, 15, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, 10, 11, 12, 13, 14, 15, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF); Нагуглить удалось разве что 3-5 юнитов где есть куски как две капли с вышеприведённым (и наверняка у людей они работают), а из разъяснений - цитата из одной и той же книжки: Код:
type mat = array [0..5] of array [-2..2] of array [Char] of Byte; Такую запись можно заменить более компактной: type mat = array [0..5,-2..2,Char] of Byte; Глубина вложенности структурированных типов вообще, а следовательно, и массивов - произвольная, поэтому количество элементов в списке индексных типов (размерность массива) не ограничено, однако суммарная длина внутреннего представления любого массива, как уже говорилось, не может быть больше 65520 байт. Пролейте хто-нить свет на ето дело - спасибо (заранее). Да - ХР х64, D2010 ...И был сначала ZX-Spectrum, а потом его T(urbo)ASS(e)M(bler)... И только на 7-й день (когда Интел купила Пентковского [из КБ Бабаяна]) - появился Pentium-I... А в Союзе P-II был ещё в 1978 году (точнее: Эльбрус [мультискалярный проц] только не рапространялся спекулянтами, а управлял ракетами и спутниками)... А лет с пяток назад Эльбрус-II ПЁР (но никак не ГНАЛСЯ как Селероны) на F(recuency):= 400 GHz... А самое парадоксальное - презентация состоялась в Минске... |
#11
|
||||
|
||||
Если я не ошибаюсь то с версии Делпхи2009 "Char" стал Юникодом и имеет 2байта а именно 65536 символов , Т.Е. у тебя массив [0..65535]. А представленных значений в константе всего 256. Вот он и ругается, типа, дорисуй ему ещё 65280 элементов . И так, что бы у тебя тут всё заработало, тебе нужно изменить Char на Ansichar .
11011111 INED Home code VK Последний раз редактировалось ined, 03.07.2013 в 01:03. |
Этот пользователь сказал Спасибо ined за это полезное сообщение: | ||
UFO 007 (03.07.2013)
|
#12
|
|||
|
|||
... и действительно - typы - добавил префикс Ansi и даже в таком случае:
Код:
procedure ConvertCaseInsensitive(var C: CharSet); var Ch: AnsiChar; // Char begin For Ch := 'A' to 'Z' do if Ch in C then Include(C, AnsiChar(Ord(Ch) + 32));// Char For Ch := 'a' to 'z' do if Ch in C then Include(C, AnsiChar(Ord(Ch) - 32));// Char end; З. Ы. Под D7 пашет - как по нотам, но сама D7 скрежещет под х64. ...И был сначала ZX-Spectrum, а потом его T(urbo)ASS(e)M(bler)... И только на 7-й день (когда Интел купила Пентковского [из КБ Бабаяна]) - появился Pentium-I... А в Союзе P-II был ещё в 1978 году (точнее: Эльбрус [мультискалярный проц] только не рапространялся спекулянтами, а управлял ракетами и спутниками)... А лет с пяток назад Эльбрус-II ПЁР (но никак не ГНАЛСЯ как Селероны) на F(recuency):= 400 GHz... А самое парадоксальное - презентация состоялась в Минске... |