[Smerch66]

var
DATA : array of Float; //динамический массив, размер которого задаю в тексте программы.
DATAlength: integer;
i,num: integer;

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

procedure maxelement(mass : array of Float; mNFFT : integer; var element : integer);
begin
element:=0;
for i:=1 to mNFFT-1 do
begin
if abs(mass[i])>abs(mass[element]) then
element:=i;
end;
end;

//далее идёт кусок из текста, в котором обращаюсь к процедуре
setlength(DATA, DATAlength);
...
maxelement(DATA, DATAlength, num);


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

Если всё таки это передача указателя, то почему когда передаю массивы размерности примерно 100000 - 150000 элементов всё в порядке. А как передаю массив примерно на 360000 элементов, выскакивает ошибка в ходе выполнения программы, о каком-то переполнении.
Подскажите пожалуйста как решить эту проблему.

[AleD]

Stack overflow - переполнение стэка

Код:

pArrAddr := @any_array[Low(any_array)] // указатель на первый элемент в массиве

Pointer(any_array) := pArrAddr; // из указателя обратно в массив (не копирует массив! просто переменную указывает на существующий массив)

pArrAddr это и есть тот самый указатель на массив

[Smerch66]

Очень извиняюсь, но не очень понятно.
Можно как-нибудь написать относительно того текста и тех переменных которые у меня уже имются? Очень прошу!
Самое интересное просто как это передать в процедуру.

[AleD]

Код:

var
DATA : array of Float; //динамический массив, размер которого задаю в  тексте программы.
DATAlength: integer;
i,num: integer;

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

procedure maxelement(pMass : Pointer; mNFFT : integer; var element  : integer);
var
mass: array of Float;
begin
Pointer(mass) := pMass;
element:=0;
for i:=1 to mNFFT-1 do
  begin
  if abs(mass[i])>abs(mass[element]) then
  element:=i;
  end;
end;

//далее  идёт кусок из текста, в котором обращаюсь к процедуре
setlength(DATA, DATAlength);
...
maxelement(@DATA[Low(DATA)], DATAlength, num);

как то так

[Smerch66]

Спасибо большое получилось!

То есть теперь в этой процедуре не нужно делать очистку массива?
Finalize(mass);

И ещё один важный вопрос: что это было за переполнение стека и с чем оно связано?

[AleD]

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

Спасибо большое получилось!

То есть теперь в этой процедуре не нужно делать очистку массива?
Finalize(mass);

И ещё один важный вопрос: что это было за переполнение стека и с чем оно связано?

если вы очистите массив в этой процедуре то он будет пуст и за пределами функции, кароче говоря DATA и mass это одно и тоже, одна информация, одну память используют

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

[Smerch66]

Проблема возникла! Вобщем как только процедура завершает свою работу, автоматически очищаются оба массива mass и DATA. Понял теперь что это один и тот же массив, то всё же, он очищается сам, без всяких команд по завершению этой процедуры

[AleD]

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

Проблема возникла! Вобщем как только процедура завершает свою работу, автоматически очищаются оба массива mass и DATA. Понял теперь что это один и тот же массив, то всё же, он очищается сам, без всяких команд по завершению этой процедуры

в конце процедуры добавьте этот кусок:

Код:

Pointer(mass) := nil;

и всё будет в порядке

[Smerch66]

Теперь уже окончательно всё получилось! Спасибо вам огромнейшее!
Осталось только 2 вопроса:
1) что благодаря этой последней команде происходит, и что происходило без неё?
2) как я могу поднять вам репутацию? а то ещё не совсем освоился с возможностями форума.

Спасибо!!!

[AleD]

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

Теперь уже окончательно всё получилось! Спасибо вам огромнейшее!
Осталось только 2 вопроса:
1) что благодаря этой последней команде происходит, и что происходило без неё?
2) как я могу поднять вам репутацию? а то ещё не совсем освоился с возможностями форума.

Спасибо!!!

1) Четно говоря сам не знаю, но в некоторых парсерах и интерфейсах если число refCount (число переменных привязанных к данным) равняется нулю, то эти данные больше не нужны и они удаляются. Хотя здесь наврятли такое...
2) Значок весов справа от сообщения коим помог

[Smerch66]

Нажимаю на весы, а там сообщение:
"Вы должны добавить отзыв кому-то еще, прежде чем сможете снова добавить ее AleD."

Ну думаю, может я уже дааавно оставлял свою благодарность. В результате оставил отзыв другому человку, и потом снова попробовал на ваши весы нажать и то же самое(

[AleD]

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

Нажимаю на весы, а там сообщение:
"Вы должны добавить отзыв кому-то еще, прежде чем сможете снова добавить ее AleD."

Ну думаю, может я уже дааавно оставлял свою благодарность. В результате оставил отзыв другому человку, и потом снова попробовал на ваши весы нажать и то же самое(

да не суть, мне эти циферки в 2 байта (или 4) не важны

[Asinkrit]

Можно и проще было это сделать)

Код:

...
type
  TFloatArray = array of Float;
...
function GetMaxEement(const FloatArray:TFloatArray):Integer;
var
  i:Integer;
begin
  Result:=0;
  if Length(FloatArray) > 1 then
    for i:=Low(FloatArray)+1 to High(FloatArray) do
      if abs(FloatArray[i]) > abs(FloatArray[Result]) then
        Result:=i;
end;
...

[Smerch66]

А в этом случае, как я понимаю, в функцию будет передаваться весь массив, а не указатель на него?

[AleD]

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

А в этом случае, как я понимаю, в функцию будет передаваться весь массив, а не указатель на него?

эм... нет, тоже указатель, я просто как то при слове "указатель" сразу и подумал про Pointer. const сделан для упрощения программирования, как например String (это тоже указатель )