Рандомный вывод вопросов в тесте

[Алексей_2012]

Здравствуйте, наверное видели мою программу создатель тестов, дак вот, возникла необходимость перемешки вопросов.

структура данных такая:

количество вопросов (цифра)
сам вопрос
варианты ответов (количество)
правильный ответ (номер)
вариант ответа 1
вариант ответа 2
...

Пример

2
Вопрос 1
3
1
1
2
3
Вопрос 2
4
2
1
2
3
4

Тест хранится в такой структуре в текстовом файле, есть идея записать в Tstringlist, то есть все вопросы записаны в массив строк, перемешиваются, потом этот вопрос записывается в новый список, и исходя из вопроса уже к нему переписываются и сами варианты ответа, а так же порядковые номера, идея муторная, есть другие, исходяиз структуры файла?

[eval]

это вы за такое время только к такому формату и додумались?

кидайте программирование

[Алексей_2012]

В общем спрошу проще: есть динамический одномерный массив со строками, как его перемешать? Код теста позже выложу

[Serge_Bliznykov]

смотрите код правильного перемешивания - ТЫЦ
(там и пруфлинк есть, если что)

[Алексей_2012]

var
  a: array of string;
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(a, 5);
  a[0] := 'Вопрос 1';
  a[1] := 'Вопрос 2';
  a[2] := 'Вопрос 3';
  a[3] := 'Вопрос 4';
  a[4] := 'Вопрос 5';


end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  a := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, j, k: integer;
  b: array of integer;
  c: array of string;
begin
  SetLength(b, Length(A));
  SetLength(c, Length(a));
  k := 0;
  Memo1.clear;
  for i := 0 to Length(a) - 1 do
  begin
    c[i] := a[i];
    Memo1.Lines.Add(c[i]);
  end;
   for i := Length(a) - 1 downto 0 do
  begin
    Randomize;
    b[k] := Random(i);
    inc(k);
  end;
  Memo1.Lines.Add('');
  Memo1.Lines.Add('');
  for i := 0 to Length(a) - 1 do
  begin
    a[i] := c[b[i]];
    Memo1.Lines.Add(a[i]);
  end;

  b := nil;
  c := nil;
end;

ну вот что сам попробовал, не очень получилось, совсем не работает и элементы строк вдобавок заменяют.

[Алексей_2012]

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

var
  a: array of string;
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(a, 5);
   a[0] := 'Вопрос 1';
  a[1] := 'Вопрос 2';
  a[2] := 'Вопрос 3';
  a[3] := 'Вопрос 4';
  a[4] := 'Вопрос 5';


end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  a := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, j, k: integer;
  b: array of integer;
  c: array of string;
begin
  SetLength(b, Length(A));
  SetLength(c, Length(a));
  k := 0;
  Memo1.clear;
  for i := 0 to Length(a) - 1 do
  begin
    c[i] := a[i];
    Memo1.Lines.Add(c[i]);
  end;
   for i := Length(a) - 1 downto 0 do
  begin
    Randomize;
      b[k] := Random(i);
    if (k>0) and (b[k]=b[k-1])  then
    while b[k]=b[k-1] do  b[k] := Random(i);
    inc(k);
  end;
  Memo1.Lines.Add('');
  Memo1.Lines.Add('');
  for i := 0 to Length(a) - 1 do
  begin
    a[i] := c[b[i]];
    Memo1.Lines.Add(a[i]);
  end;

  b := nil;
  c := nil;
end;

[Serge_Bliznykov]

возьмите работающий код ОТСЮДА

оффтоп...
Назовите хотя бы одну вменяемую причину, по которой Вы не хотите взять простой и работающий алгоритм (по ссылке) и пытаетесь приделать колёса к табуретке в надежде получить велосипед?

[eval]

если бы автор хронил данные в номальном виде, то и не пришлось бы совсем заморачиваться с табуретками, но он нормальный герой, надо еще месяц повозюкаться чтобы потом выкинуть, со спокойной душой, все что на ваяет

[doktor255]

Serge_Bliznykov Видемо суть кода не дошла человека. Нужно объяснять на пальцах. Создаём цикл (это такая штука, с элементами for to do) от первого до последнего элемента массива (массив, это штука, которая была упомянута во втором посте). Внутри цикла получаем рандом от размера массива

Random(Length(array) - 1)

Меняем местами элемент по индексу цикла с элементом по числу из рандома. Для этого помещаем один элемент в буфер, перезаписываем первый элемент вторым элементом, а второй элемент перезаписываем элементом из буфера... Всё. Гениально сложно, не правда ли???
P.S. Ах да. Забыл ещё более простой вариант решения, если предыдущий окажется чересчур сложным. Создаём ещё один StringList, и в цикле, пока Count > 0 (While List.Count > 0) получаем рандомно строку, записываем её в новый StringList, и удаляем её из старого листа.

[Алексей_2012]

но он нормальный герой, надо еще месяц повозюкаться чтобы потом выкинуть, со спокойной душой, все что на ваяет

и все-таки он готов! Рандомизация выполнена на ура, и вопросы перемешиваются и выводятся так, как перемешались)))))