Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];

Вниз

как передать и принять массив в функцию(процедуру)? +   Найти похожие ветки 

 
vilfred   (2002-10-18 17:25) [0]

Как передать массив в функцию, которую собираюсь потом еще раз вызывать рекусивно(передавая ей же немного видоизмененный массив).

т.e.
...
private
{ Private declarations }
//объявляю функцию
function RecursiveFFT(var ending: array[0 .. VidW] of real);

....

//тут какой-то код, вызываю функцию

function TForm1.RecursiveFFT(ending: array[0 .. VidW] of real);
begin
...
//тут какие-то кракозяблы
...
RecursiveFFT(ending);
end;

как вот написал оно орет очень сильно на компилирование...

А на самом деле хочу передавать массив ending в функцию RecursiveFFT, что-то там с ней сделать, посчитать какие-то коэффициенты и в зависимости от их содержания передать вновь ending в функцию(или процедуру)... как это сделать можно?


И еще вопрос. Как из массива выудить все четные элементы в один массив, а нечетные в другой массив?

Спасибо за ответ!

p.s. так глючно рекурсивно передавать массив в программу надо потому, что пишу быстрое преобразование фурье, а там просто алгоритм должен быть рекурсивным... Еслиб на перле яб уже написал, а так в дельфях мало шарю.


 
pirat   (2002-10-18 17:37) [1]

function TForm1.RecursiveFFT(var ending: array of real)

а в крмпиляторе включи поддержку открытых массивов.
внутри функции массив с 0 будет нумероваться.


 
han_malign   (2002-10-18 17:49) [2]

Либо опиши массивовый тип, он в типе аргумента проходит
procedure Proc(var aArray: TByteArray);
З.Ы. Кстати при out и как ни странно(но вполне логично)const тоже в стек запихивается указатель а не структура.


 
vilfred   (2002-10-18 18:13) [3]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.036 c
1-92491
Родионов Юрий
2002-10-16 04:40
2002.10.28
Интерполирование функции кубическим сплайном


14-92728
werr
2002-10-09 09:30
2002.10.28
USB 2.0, 1.1, 1.0


3-92328
shulc
2002-10-06 12:15
2002.10.28
Record not found


3-92338
ghost_by
2002-10-05 03:26
2002.10.28
Счетчик!


4-92823
Tihas
2002-09-11 06:15
2002.10.28
Как можно имянить с помощью WIN API ширену бордюра окного элемент





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский