Функция, возвращающая массив

[KORT]

Доброе время суток!
Есть пример работы функции, которая возвращает массив.
Функция сортирует цифры внутри массива...
kol1 - всего вопросов в базe
kol2 - задать количество вопросов

PHP код:

type
  MassResponce = array of integer;
......
function RandomNumberQuestions(kol1,kol2: integer): MassResponce;
  var
    i,j,z,tmp: integer;
    mas: array[1..100] of integer;
    s: string;
  begin
    for i:=0 to kol1-1 do
      begin
        Randomize;
        j:=Random(kol1)+1;
        z:=Random(kol1)+1;
        tmp:=mas[z];
        mas[z]:=mas[j];
        mas[j]:=tmp;
      end;
    s:='';
    for i:=1 to kol2 do
      result[i]:=mas[i];
  end; 


вызываю ее

PHP код:

procedure TForm1.ComboBox5Change(Sender: TObject);
    masss: MassResponce;
  begin
...
    masss:=RandomNumberQuestions(GroupElSec[GroupEl2],GroupEl1);
  end; 


вот такую каhтинку выдает...

[Serge_Bliznykov]

MassResponce = array of integer;

Это динамический массив.
По сути - указатель на область памяти.
чтобы работать с этим массивом ОБЯЗАТЕЛЬНО нужно выделить требуемую память с помощью процедуры SetLength( ИМяДинамическогоМассива, размер );

Вы это не делаете. Вот и получаете ошибку access violation...


p.s. Огласите условие задачи, которую Вы решаете, может быть, Вам динамические массивы и не нужны совсем!
А если они нужны, то нужно выделять под них память и выкинуть ваш статический массив mas...

[Sibedir]

1. Перед работой с динамическим массивом его нужно инициализировать:
2. Нумерация динамических массивов с 0

 ...
 SetLength (result, kol2);
 for i:=1 to kol2 do
      result[i-1]:=mas[i];
 ...

------------------------------------------------------------------------------

        j:=Random(kol1)+1;
        z:=Random(kol1)+1;
        tmp:=mas[z];
        mas[z]:=mas[j];
        mas[j]:=tmp;

Что вы хотели этим сказать?

------------------------------------------------------------------------------

 mas: array[1..100] of integer;

Уверены, что kol1 < 100?

___________________________________ ___________________________________ ____________________

Сообщение от Serge_Bliznykov

Коллега, Вы пишете правильно, а код даёте с ошибкой

Упс. Забыл подправить. Теперь исправил

[Sciv]

А если вот это

for i:=1 to kol2 do
      result[i]:=mas[i];

заменить на это:

result:=mas;

Правда, массивы должны совпадать по типам...

А на кой Вам динамический массив, если внутри функции все-равно ограничение в сто элементов?

[Serge_Bliznykov]

Сообщение от Siberdir

Нумерация динамических массивов с 0

Коллега, Вы пишете правильно, а код даёте с ошибкой

 SetLength (result, kol2);
 for i:=1 to kol2 do
      result[i]:=mas[i];

очевидно, что нужно:

 for i:=0 to kol2-1 do
      result[i]:=mas[i+1];

Сообщение от Sciv

А если вот это ...
заменить на это:

result:=mas;

Да щас!! Никто Вам так записывать не позволит - result и mas РАЗНОГО типа!

Да и я сомневаюсь, что mas вообще нужен!!

[eoln]

setlength(result,kol2+1);

+1 потому что индексация с нуля, а у mas с единицы
Или

result[i-1]:=mas[i]

Serge_Bliznykov опередил

[Sciv]

Да щас!! Никто Вам так записывать не позволит - result и mas РАЗНОГО типа!

Сергей, читай внимательно, я прямо под кодом поправку на это указал...

[KORT]

Заработало! Сделав вот так:

PHP код:

    setlength(result,kol2+1);
    ...
    for i:=1 to kol2 do
      result[i-1]:=mas[i]; 


j:=Random(kol1)+1;
        z:=Random(kol1)+1;
        tmp:=mas[z];
        mas[z]:=mas[j];
        mas[j]:=tmp;

Это "сортировка" внутри массива

было так: 1 2 3 4 5 6 7 8 9 10
станет так: 3 1 4 10 6 2 8 5 9

[QUOTE=Sibedir;1177669]Уверены, что kol1 < 100?/QUOTE]
Да!! там максимум 50

P.S. Спасибо всем за ответы

[Sibedir]

Написал зря. Удалил.

[Sciv]

Да!! там максимум 50

Ну и опять же возвращаемся к вопросу - на кой ляд Вам динамический массив?

Задали бы тогда:

type
  MassResponce = array [1..50] of integer;

и потом избавились от одного цикла в процедуре:

mas: MassResponce;

...

result:=mas; 
...

Не настаиваю на этом варианте, однако имхо он чуть оптимальней исходного.