Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Передача даных в модуль, Проблема с передачей массива записей 
V
    Опции темы
JJJLexusJJJ
Дата 1.4.2007, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 18.2.2007

Репутация: нет
Всего: нет



Не удается передать данные в модуль 
выдает ошибку: 

Constant out of range 
Код

CtrlPt[-1] := CtrlPt[1];


и 

Type mismatch 
Код

BSpline (CtrlPt, NumPts, Res, LightGreen); 


хотя CtrlPt объявлен как: 

Код

TYPE 
   Point3D = Record 
     X, Y, Z: Real; 
   End; 

VAR CtrlPt: Array[-1..80] Of Point3D; 


объявление переменных(массива записей одинаковое что в модуле, что в main program)
(до создания модуля все работало отлично, пока процедуры были в main program)

Или подскажите как сделать CtrlPt глобальной переменной, если это возможно

Если хотите то можете взглянуть на код программы:

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  Proj.rar 3,71 Kb
PM MAIL   Вверх
volvo877
Дата 1.4.2007, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116



JJJLexusJJJ,
проблема в том, что открытые массивы индексируются с 0, и обращение к индексу -1 однозначно трактуется как выход за допустимый диапазон... Что я бы сделал:

Первая ошибка - в модуле Polinom:
Код

TYPE
  CtrlPtType = Array[-1..80] Of Point3D; { <--- Добавляешь этот тип }
VAR
  CtrlPt: CtrlPtType;

FUNCTION PtCtrl(x,y:real):boolean;
PROCEDURE BSpline (CtrlPt: CtrlPtType; N, Resolution, Colour: Integer); { <--- Изменяешь описание }
PROCEDURE Catmull_Rom_Spline (N, Resolution, Colour: Integer);

Соответственно, в реализации BSpline тоже меняешь тип... Тогда первая ошибка уходит...

Вторая ошибка должна исправиться так:
Основная программа:
Код

TYPE
   (* 
   Point3D = Record <--- Этот тип уже описан в модуле !!! Убираем его ...
     X, Y, Z: Real;
   End;
   *)
   Configs = Record
     NumPts: Byte;
   End;

VAR  
     (*
     CtrlPt: CtrlPtType; { <--- Этот массив тоже уже описан в модуле - пользуемся им... }
     *)
     Config: Configs;


PM MAIL   Вверх
JJJLexusJJJ
Дата 2.4.2007, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 18.2.2007

Репутация: нет
Всего: нет



Спасибо за помощь, все тепрь работает smile 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.1072 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.