Ошибка при записи в открытый член класса

@aaveNs · Регистрация: 14.12.2012

Author24 — интернет-сервис помощи студентам

Имеется ниже представленный класс. Создаю его экземпляр и хочу использовать в функции. В этой функции устанавливаю значения для переменных m, xS. Но вместо этого программа выдает ошибку, что записать по этому адресу нельзя ничего. В чем причина?

Delphi

Contour = class
  public
    xA : dArray;
    yA : dArray;
    zA : dArray;
    m  : integer;
    xS : double;
    constructor Create(last : integer);
    // .....
  end;

@northener · 05.04.2015, 01:39

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

Создаю его экземпляр

Вот именно код создания этого экземпляра и нужно было привести в вопросе. А не описание класса.

@aaveNs · 05.04.2015, 01:42 **[ТС]**

Delphi

1 2	var newC : Contour;

@northener · 05.04.2015, 01:51

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

var
newC : Contour;

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

Delphi

"Имя переменной_ссылки":="Имя_класса".Create("тут следуют нужные параметры для правильного создания сего экземпляра");

@aaveNs · 05.04.2015, 01:52 **[ТС]**

окей,

Delphi

1	newC := Contour.Create(29);

@northener · 05.04.2015, 02:00

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

окей,
newC := Contour.Create(29);

Ну и что значит твой окей? Что ошибка пропала или что?

@aaveNs · 05.04.2015, 02:02 **[ТС]**

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

@northener · 05.04.2015, 02:08

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

В Delphi я уже запутался что у него зачем и куда, честно говоря.

Ну тогда приводи полный код. К сообщению можно прикрепить файл с архивом проекта.

@aaveNs · 05.04.2015, 02:14 **[ТС]**

..........

@northener · 05.04.2015, 02:28

Ну да. Понимаю, что сам попросил привести код - сам и отвечай. Но в том коде разбираться в третьем часу ночи - у меня нет ни сил, ни желания. Завтра может разберусь, если кто-то другой не разберётся раньше меня.

@krapotkin · 05.04.2015, 05:57

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

тогда претензии общего порядка, из-за которых это не взлетит никогда:
1.названия типов начинать с буквы Т чтобы отличать их от переменных
2.не использовать глобальные переменные и функции без КРАЙНЕЙ необходимости (а тут её точно нет)
3. в названиях методов, функций, процедур, принято использовать глаголы, чтобы знать, что эта штука "делает"
(примеры - Reset, Read, Open, неправильно - IntersectionY, Parser и т.д.)
4. если в конструкторе мы нахапали памяти под массивы, то нужно написать и деструктор, где аккуратно подтереть за собой:

Delphi

destructor TContour.Destroy;
begin
  SetLength(arr,0);
  inherited Destroy;
end;

5. Апофеоз беспредела - это метод класса, в который параметром передается экземпляр этого же класса.

Delphi

1	newC.createArrays(5, newC);

Ты удивишься, но ООП делает это за тебя. В методе класса есть неявная переменная Self, которая как раз и есть тот объект, чей метод ты вызвал. Но тебе это здесь совершенно не нужно.

Delphi

1	newC.createArrays(5);

вот так. и всё.
6. вызов из newC.createArrays процедуры

Delphi

1	procedure Parser( FileName : string; ContourNumber : integer; var inc : Contour );

говорит нам только о том, что это должно быть методом класса TContour
7. использование глобального массива temp из метода CreateArrays тоже недопустимо

итог.
все глобальные переменные и процедуры должны стать полями и методами либо TForm1 либо TContour
Contour переименовать в TContour, dArray - в TDArray;
после этого еще раз сюда...

@aaveNs · 05.04.2015, 09:50 **[ТС]**

Я понимаю, что код там полнейшая каша, но эту работу мне сдать и забыть. Вот на счет передачи самого объекта функции согласен, это я намудрил, не мог определить как обратится методе к этому объекту (привык, что обращение по this). За зачистку после дня разбора иногда беспричинных ошибок (пару раз начало работать, после простой копии в новый файл) уже как-то и не думал)
Кстати, наименования мне казалось довольно понятны, наоборот.
И спасибо за помощь!

@aaveNs · 05.04.2015, 13:56 **[ТС]**

вот исправленный по рекомендациям код.
работает правильно при LAST <= 10, если ставить до 11 или больше - начинает выдавать ошибку. Возможно, где-то выход за границы массива, но на какой именно строке ошибка не показывает.

@aaveNs · 05.04.2015, 14:05 **[ТС]**

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

@krapotkin · 05.04.2015, 14:13

на здоровье

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	05.04.2015, 01:39	2
	Сообщение от aaveNs Создаю его экземпляр Вот именно код создания этого экземпляра и нужно было привести в вопросе. А не описание класса. 0

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	05.04.2015, 02:00	6
	Сообщение от aaveNs окей, newC := Contour.Create(29); Ну и что значит твой окей? Что ошибка пропала или что? 0

@aaveNs 0 / 0 / 0 Регистрация: 14.12.2012 Сообщений: 13
	05.04.2015, 02:02 [ТС]	7
	нет, это все было прописано попросил показать, как создаю экземпляр - держи. В Delphi я уже запутался что у него зачем и куда, честно говоря. 0

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	05.04.2015, 02:08	8
	Сообщение от aaveNs В Delphi я уже запутался что у него зачем и куда, честно говоря. Ну тогда приводи полный код. К сообщению можно прикрепить файл с архивом проекта. 0

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	05.04.2015, 02:28	10
	Ну да. Понимаю, что сам попросил привести код - сам и отвечай. Но в том коде разбираться в третьем часу ночи - у меня нет ни сил, ни желания. Завтра может разберусь, если кто-то другой не разберётся раньше меня. 0

@aaveNs 0 / 0 / 0 Регистрация: 14.12.2012 Сообщений: 13
	05.04.2015, 09:50 [ТС]	12
	Я понимаю, что код там полнейшая каша, но эту работу мне сдать и забыть. Вот на счет передачи самого объекта функции согласен, это я намудрил, не мог определить как обратится методе к этому объекту (привык, что обращение по this). За зачистку после дня разбора иногда беспричинных ошибок (пару раз начало работать, после простой копии в новый файл) уже как-то и не думал) Кстати, наименования мне казалось довольно понятны, наоборот. И спасибо за помощь! 0

@aaveNs 0 / 0 / 0 Регистрация: 14.12.2012 Сообщений: 13
	05.04.2015, 14:05 [ТС]	14
	krapotkin, спасибо еще раз за советы. Организовав все более логично, легко обнаружил, что порождало ошибку (банально опечатался в названии массива, когда задавал длину). Вопрос решен. 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,160 Записей в блоге: 20
	05.04.2015, 14:13	15
	на здоровье 0

Ошибка при записи в открытый член класса

Решение