VPF::Передача даных в модуль - Форум программистов

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

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;

JJJLexusJJJ

Дата 2.4.2007, 08:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Спасибо за помощь, все тепрь работает smile

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