[antkom]

Дан любой массив, нужно чтобы следующий элемент после текущего при нажатии кнопки "пропустить" например, становился текущим, а "пропущенный" становился последним... Помогите пожалуйста это реализовать в коде примерном!

[NumLock]

а что такое текущий элемент массива???

[antkom]

a[i] вроде, я и не совсем уверен что это через массив лучше делать) ПРосто нужно сделать тест с возможностью пропуска вопросов но чтобы они снова (пропущенные) в конце повторялись...

[antkom]

Тест сам готов, но вот как реализовать повторение вопросов не соображу(

[NumLock]

с TList не проще будет?

[antkom]

У меня вопросы загружаются из xml файла, такое задание... Это с tlist сочетаемо?

[vr-frost]

Самое простое создать еще один массив и скидывать туда вопросы или ссылки на них при пропуске.

[Страдалецъ]

Ну TList поудобнее будет, там уже есть методы удаления и перестановки элементов.

[BorodaOleg]

Есть список вопросов, как я понял, т.е. обычных текстовых строк.
Тогда однозначно TStrinList, сначала методом Add добавляете строки, а далее при помощи Delete, Exchange, Insert крутите ими, как вам будет удобно.

[UFO 007]

Доброго всем времени суток!!!

Жутко извиняюсь - если чуток не в тему (хотя судя по названию - самый раз), но тут такое дело: скачал Юнит с таким фрагментом:

Код:

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);

на который компилер самым непотребным образом ругается: Намбер оф элементс (256) диферс фром декларэйшн (65535)...
Нагуглить удалось разве что 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 байт.

... так почему компилер хочет на 15 байт больше?
Пролейте хто-нить свет на ето дело - спасибо (заранее).

Да - ХР х64, D2010

[ined]

Если я не ошибаюсь то с версии Делпхи2009 "Char" стал Юникодом и имеет 2байта а именно 65536 символов , Т.Е. у тебя массив [0..65535]. А представленных значений в константе всего 256. Вот он и ругается, типа, дорисуй ему ещё 65280 элементов . И так, что бы у тебя тут всё заработало, тебе нужно изменить Char на Ansichar .

[UFO 007]

... и действительно - 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;

и всё равно ошибка: F2084 Internal Error : URW1111 - уж не приведение ли типов замешано? Если да, то как это делается (явно/не явно)?

З. Ы. Под D7 пашет - как по нотам, но сама D7 скрежещет под х64.