Как передать функции управление динамическим массивом?

← →
Vopros01 (2003-04-03 09:42) [0]

Подскажите, пожалуйста, как в функции изменять размерность динамического массива, переданного в качестве параметра.
Этот массив будет возвращаемым параметром.

← →
Anatoly Podgoretsky © (2003-04-03 09:47) [1]

SetLength

← →
Skier © (2003-04-03 09:48) [2]

>Vopros01
1) модификатор var у формального параметра
2) SetLength(...)

← →
vopros01 (2003-04-03 10:37) [3]

Извините, неправильно поставил вопрос.
Пример:

var
SpisSearch: array of Integer; // список найденного
CountSearch: Word; // количество найденного

begin

Search(CountSearch, SpisSearch);

// Далее обработка полученного списка

end;

Процедура Search должна мне вернуть сформированные SpisSearch и CountSearch

Procedure Search(Spis: array of Integer; Count: Word);
begin

// вычисление количества элементов
...

// назначить размерность динамического массива
SetLength(Spis, Count);

// присвоить значения элементам массива
...

end;

Процедура Search лежит в другом модуле (если это имеет значение)

Так вот, такая схема не работает! Компилятор выдает ошибку на строке
SetLength(Spis, Count);

Help!

← →
AlexSV © (2003-04-03 10:49) [4]

> vopros01
> Так вот, такая схема не работает

А что при этом говорит?

ИМХО
Сделать объявление типа
type TIntArray: array of Integer;

а потом использовать:
var
SpisSearch: TIntArray;
...
Procedure Search(Spis: TIntArray; Count: Word);

← →
vopros01 (2003-04-03 10:49) [5]

Help!

← →
Skier © (2003-04-03 10:51) [6]

>vopros01
1) type TIntArray: array of Integer;
2) Procedure Search(var Spis: TIntArray; var Count: Word);
(если я правильно понял...)

← →
AlexSV © (2003-04-03 10:54) [7]

> Skier ©

Списываем? ;-)))

← →
vopros01 (2003-04-03 10:54) [8]

> Сделать объявление типа
> type TIntArray: array of Integer;
AlexSV, поясните где сделать? В модуле с вызываемой процедурой или в вызывающей?

>AlexSV
Ну...я бы сказал так : "заимствуем разумные вещи"
И потом...надо вовремя оформлять copyright. :)))

Объявление типа делаем в модуле, где находится процедура разделе interface

← →
vopros01 (2003-04-03 11:20) [11]

Спасибо. Буду пробовать.
Блин! У меня сейчас рухнул комп. Выдал ошибку записи на винт.
После Reset винт не был обнаружен! Только после полного выключения компа я смог облегченно выдохнуть. Извиняюсь за отступление...:)

← →
vopros01 (2003-04-03 12:21) [12]

Всем спасибо! Работает! (пару дней бился, пытаясь врубиться самостоятельно)

Как передать функции управление динамическим массивом? Найти похожие ветки