Операция наследования с записями

@Hrethgir · Регистрация: 25.01.2012

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

подскажите пожалуйста можно ли так?
допустим

Pascal

recBoxBeginEndX= record
    labelX:boolean;
    minX,maxX: extended; // кординаты контейнера по оси X, упорядочены по возрастанию значения начала контейнера
    IDsurface: Word;//начало треугольника в контейнере и позиция в RpovrhnostiPoZed
  end;
 
  recPartBoxBeginEndX =record
    minX,maxX: extended; // кординаты контейнера по оси X, упорядочены по возрастанию значения начала контейнера
    IDsurface: LongWord;
  end;

ив от мне нужно взять значения соответственных полей из recBoxBeginEndX в recPartBoxBeginEndX
можно ли так:

Pascal

var
BoxBeginEndX : recBoxBeginEndX; 
PartBoxBeginEndX : recPartBoxBeginEndX; 
....
begin
PartBoxBeginEndX := BoxBeginEndX;
...

ну или почти как-то так. можно?

quwy · 05.02.2014, 16:31

Нет конечно. У вас разные наборы полей разного типа. Такое ни с классами, ни со структурами делать нельзя. Чем вас не устраивает присвоение по отдельным полям?

@Hrethgir · 05.02.2014, 16:36 **[ТС]**

долго, потом может и сделаю, а пока просто оставлю запись ту-же на две переменных.

quwy · 05.02.2014, 17:14

Ну, если по-уму, то зачем плодить однотипные структуры? Тогда лучше так:

Pascal

  recPartBoxBeginEndX =record
    minX,maxX: extended; // кординаты контейнера по оси X, упорядочены по возрастанию значения начала контейнера
    IDsurface: LongWord;
  end;
 
  recBoxBeginEndX= record
    labelX:boolean;
    PartBoxBeginEndX: recPartBoxBeginEndX;
  end;

В этом случае присваивать можно и так:

Pascal

1	Move(BoxBeginEndX.PartBoxBeginEndX, PartBoxBeginEndX, SizeOf(PartBoxBeginEndX));

Хотя без полного понимания подковерных процессов, лучше все равно по одному полю это делать, Move() для сложных данных бывает очень опасен.

@volvo · 05.02.2014, 17:20

Hretgir, перегрузи оператор присваивания для нужных записей. Скажем, для того, чтобы делать то, что показано в твоем посте:

Pascal

operator := (rhs : recBoxBeginEndX) : recPartBoxBeginEndX;
begin
  with result do
  begin
    minX := rhs.minX;
    maxX := rhs.maxX;
    IDsurface := rhs.IDsurface;
  end;
end;

, после этого код будет прекрасно компилироваться и работать...

Добавлено через 1 минуту

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

В этом случае присваивать можно и так:

Не нужно этого делать. Даже при понимании подковерных процессов. Специально для того, чтобы этого НЕ делали, была изобретена перегрузка операций.

@Hrethgir · 05.02.2014, 21:23 **[ТС]**

Pascal

procedure TForm1.partFormation;
var
count:word;
part:integer;
begin
part:=counterTimeABoxBeginEndY;
counterBoxBeginEndX:=0;
counterApartBoxBeginEndX:=0;
count:=0;
while count<part-1 do
begin
 BoxBeginEndX:=ABoxBeginEndX[counterBoxBeginEndX];
if BoxBeginEndX.labelX=true then
begin
 
  //ApartBoxBeginEndX[counterApartBoxBeginEndX]:=BoxBeginEndX;
  operator := (rhs : recBoxBeginEndX) : recPartBoxBeginEndX;
  begin
  with result do
  begin
    minX := rhs.minX;
    maxX := rhs.maxX;
    IDsurface := rhs.IDsurface;
  end;
  end;
  inc(counterApartBoxBeginEndX);
  dec(part);
end;
else
inc(part);
end;
end;

unit1.pas(220,3) Error: Illegal expression
unit1.pas(220,20) Error: Identifier not found "rhs"
unit1.pas(220,20) Fatal: Syntax error, ")" expected but ":" found

@volvo · 05.02.2014, 21:34

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

Pascal

  operator := (rhs : recBoxBeginEndX) : recPartBoxBeginEndX;
  begin
  with result do
  begin
    minX := rhs.minX;
    maxX := rhs.maxX;
    IDsurface := rhs.IDsurface;
  end;
  end;
 
procedure TForm1.partFormation;
var
count:word;
part:integer;
begin
part:=counterTimeABoxBeginEndY;
counterBoxBeginEndX:=0;
counterApartBoxBeginEndX:=0;
count:=0;
while count<part-1 do
begin
 BoxBeginEndX:=ABoxBeginEndX[counterBoxBeginEndX];
if BoxBeginEndX.labelX=true then
begin
 
  ApartBoxBeginEndX[counterApartBoxBeginEndX]:=BoxBeginEndX; // Будет вызвана перегрузка
  inc(counterApartBoxBeginEndX);
  dec(part);
end;
else
inc(part);
end;
end;

@Hrethgir · 05.02.2014, 21:38 **[ТС]**

всё, вообще компилятор теперь не работает

Pascal

procedure TForm1.partFormation;
var
count:word;
part:integer;
begin
part:=counterTimeABoxBeginEndY;
counterBoxBeginEndX:=0;
counterApartBoxBeginEndX:=0;
count:=0;
while count<part-1 do
begin
 BoxBeginEndX:=ABoxBeginEndX[counterBoxBeginEndX];
if BoxBeginEndX.labelX=true then
begin
  ApartBoxBeginEndX[counterApartBoxBeginEndX]:=BoxBeginEndX;
  //operator := (rhs : recBoxBeginEndX) : recPartBoxBeginEndX;
  //begin
  //with result do
  //begin
  //  minX := rhs.minX;
  //  maxX := rhs.maxX;
  //  IDsurface := rhs.IDsurface;
  //end;
  //end;
  inc(counterApartBoxBeginEndX);
  dec(part);
end;
else
inc(part);
end;
end;

unit1.pas(231,1) Fatal: Syntax error, ";" expected but "ELSE" found

Добавлено через 2 минуты
выносил я его уже и так и так, у меня теперь компилятор не работает кажется

ВАСИЛЕВС · 05.02.2014, 21:39

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

Pascal

1
2

end;
else

";" перед else не ставится.

@Hrethgir · 05.02.2014, 21:53 **[ТС]**

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

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

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

@volvo · 05.02.2014, 21:59

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

у меня теперь компилятор не работает кажется

Нормально все работает. Компиляцию, по крайней мере, проходит:

Pascal

// В самом начале блока Implementation, или в любом месте, но тогда
// в Interface должен быть прототип...
operator := (rhs: recBoxBeginEndX): recPartBoxBeginEndX;
begin
  with Result do
  begin
    minX := rhs.minX;
    maxX := rhs.maxX;
    IDsurface := rhs.IDsurface;
  end;
end;
 
procedure TForm1.partFormation;
var
  Count: word;
  part: integer;
begin
  part := counterTimeABoxBeginEndY;
  counterBoxBeginEndX := 0;
  counterApartBoxBeginEndX := 0;
  Count := 0;
  while Count < part - 1 do
  begin
    BoxBeginEndX := ABoxBeginEndX[counterBoxBeginEndX];
    if BoxBeginEndX.labelX = True then
    begin
      ApartBoxBeginEndX[counterApartBoxBeginEndX] := BoxBeginEndX;
      // Будет вызвана перегрузка
      Inc(counterApartBoxBeginEndX);
      Dec(part);
    end
    else
      Inc(part);
  end;
end;

@Hrethgir · 05.02.2014, 22:06 **[ТС]**

всё, разобрался, не раскомментил фрагмент. да всё, спс, запутался чутка

, фрагмент в описаниях типов не раскомментил

Добавлено через 7 минут

Сообщение от ВАСИЛЕВС

";" перед else не ставится.

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

@Hrethgir · 06.02.2014, 11:02 **[ТС]**

UI, не сходится почему-то решил переименовать так, чтобы использовать те-же процедуры, что и для Y, чтобы убрать вот эт Part и названия переменных и процедур. и вобщем в перегрузке выдаёт ошибку. и вчерашний недостаток исправил, надо было компилить сразу, я после двух операций, не пойму в чём дело, вроде правильно переименовал всё. смотрю, ищу, но вроде просто оператор не туда вынес. а куда надо не знаю. но на всякий случай ищу свою ошибку

@Hrethgir · 06.02.2014, 12:23 **[ТС]**

или запись должна быть та-же, просто присваиваются значения не все? да вроде не должно так быть. и ошибку я не найду у себя никак

. похоже я всё переименовал правильно

Добавлено через 18 минут
собрал, просто я оператор вначале вставил а не в конце всей программы, и тогда всё заработало.

@volvo · 06.02.2014, 12:24

Я же написал:

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

В самом начале блока Implementation

, а не где попало. Если у меня процедура A описана ниже процедуры B, то на момент компиляции B компилятор об A ничего не знает, и попытка вызывать оттуда процедуру A завершится неудачей. Но вот если перенести реализацию A выше реализации B, то все сразу станет нормально. Проект в аттаче прекрасно компилируется (который generationHighMap).

И используй Ctrl+D для форматирования исходника, на него же смотреть страшно...

@Hrethgir · 08.02.2014, 13:45 **[ТС]**

UI, а можно сделать несколько операторов, к разным записям? думаю можно, сейчас созрела необходимость, буду пробовать. последний фильтр делаю, по оси Z, правда он урезаный и несколько отличается от фильтров по X и Z.

@volvo · 08.02.2014, 14:06

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

а можно сделать несколько операторов, к разным записям?

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

@Hrethgir · 25.03.2014, 22:55 **[ТС]**

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

Добавлено через 13 минут
просто мне до тестовых прогонов программы ещё неделя-три, а как-то делать надо, и хочется чтобы без переделок

Добавлено через 22 часа 24 минуты
буду считать что нельзя, иначе массив не сможет быть динамическим. но попробую.

Добавлено через 2 часа 12 минут
не понимаю:

unit1.pas(252,50) Error: Incompatible types: got "recSurfaceList" expected "recBoxBeginEndY"

последняя строка в коде 252

Pascal

1
2
3

TimeABoxBeginEndY[counterTimeABoxBeginEndY] := BoxBeginEndY;//-----------------записывается значение массива контейнеров по икс
  SurfaceList := ASurfaceList[BoxBeginEndY.IDsurface];
  TimeABoxBeginEndY[counterTimeABoxBeginEndY] := SurfaceList;

есть операторы

Pascal

operator := (rhs2: recSurfaceList): recTimeBoxBeginEndY;
begin
  with Result do
  begin
  px1 :=rhs2.px1;
  py1 :=rhs2.py1;
  pz1 :=rhs2.pz1;
  px2 :=rhs2.px2;
  py2 :=rhs2.py2;
  pz2 :=rhs2.pz2;
  px3 :=rhs2.px3;
  py3 :=rhs2.py3;
  pz3 :=rhs2.pz3;
  //px1, py1, pz1, px2, py2, pz2, px3, py3, pz3: extended;
  end;
  end;
operator:=(rhs3: recBoxBeginEndY):recTimeBoxBeginEndY;
begin
  with Result do
  begin
   minY :=rhs3.minY;
   maxY :=rhs3.maxY;
   IDsurface := rhs3.IDsurface;
  end;
end;

@volvo · 26.03.2014, 02:45

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

@Hrethgir · 26.03.2014, 21:31 **[ТС]**

да можно, там ошибка другая была, если кому-то интересно, ссылка на этот-же форум, надеюсь это не будет ещё одним нарушением

Добавлено через 31 минуту
и даже напрямую работает, точнее компилируется без ошибок, жаль я раньше не знал

Pascal

1	TimeABoxBeginEndY[counterTimeABoxBeginEndY] := ASurfaceList[BoxBeginEndY.IDsurface];

это вот при этом

Pascal

operator:=(rhs3: recBoxBeginEndY):recTimeBoxBeginEndY;
begin
  with Result do
  begin
   minY :=rhs3.minY;
   maxY :=rhs3.maxY;
   IDsurface := rhs3.IDsurface;
  end;
end;
operator := (rhs2: recSurfaceList): recTimeBoxBeginEndY;
begin
  with Result do
  begin
  px1 :=rhs2.px1;
  py1 :=rhs2.py1;
  pz1 :=rhs2.pz1;
  px2 :=rhs2.px2;
  py2 :=rhs2.py2;
  pz2 :=rhs2.pz2;
  px3 :=rhs2.px3;
  py3 :=rhs2.py3;
  pz3 :=rhs2.pz3;
  //px1, py1, pz1, px2, py2, pz2, px3, py3, pz3: extended;
  end;

с двумя, как-бы наследованиями. а я тут переменным сначала присваивал, а всё намного круче.
на самом деле это-очень круто: любая здравая логика построена на уточнении информации при вычленении излишней. не знаю сколько языков программирования, ориентированные на AI элементы, основаны на этой концепции, но если мне повезёт, я займусь и этим предметом в программировании, именно на этом трюке. не зря-же я вьюсь столько около записей

и массивов, испытывая на прочность компилятор.

@Hrethgir 399 / 137 / 3 Регистрация: 25.01.2012 Сообщений: 5,777 Записей в блоге: 141
	05.02.2014, 21:53 [ТС]	10
	Сообщение от UI Перегрузка оператора присваивания должна описываться как обычная глобальная функция, иначе смысла в ней нет. Вынеси реализацию изнутри метода наружу... а я его куда не выношу везде ошибка, я лично не представляю куда его вынести. я его уже даже в описания переменных вставлял и типов. кажется понял, сек 0

@volvo Супер-модератор 32955 / 21273 / 8168 Регистрация: 22.10.2011 Сообщений: 36,542 Записей в блоге: 8
	26.03.2014, 02:45	19
	Во-первых, вопрос уже был задан в другой теме, а во-вторых - я не телепат, чтобы догадываться, как описаны переменные. 0

quwy Native x86 5594 / 3338 / 951 Регистрация: 13.02.2013 Сообщений: 10,587
	05.02.2014, 16:31	2
	Нет конечно. У вас разные наборы полей разного типа. Такое ни с классами, ни со структурами делать нельзя. Чем вас не устраивает присвоение по отдельным полям? 1

@Hrethgir 399 / 137 / 3 Регистрация: 25.01.2012 Сообщений: 5,777 Записей в блоге: 141
	05.02.2014, 16:36 [ТС]	3
	долго, потом может и сделаю, а пока просто оставлю запись ту-же на две переменных. 0

@Hrethgir 399 / 137 / 3 Регистрация: 25.01.2012 Сообщений: 5,777 Записей в блоге: 141
	05.02.2014, 22:06 [ТС]	12
	всё, разобрался, не раскомментил фрагмент. да всё, спс, запутался чутка , фрагмент в описаниях типов не раскомментил Добавлено через 7 минут Сообщение от ВАСИЛЕВС ";" перед else не ставится. учту раз и на всегда, я то его правильно писал как-то было, а потом что-то поставил снова 0

@Hrethgir 399 / 137 / 3 Регистрация: 25.01.2012 Сообщений: 5,777 Записей в блоге: 141
	06.02.2014, 12:23 [ТС]	14
	или запись должна быть та-же, просто присваиваются значения не все? да вроде не должно так быть. и ошибку я не найду у себя никак . похоже я всё переименовал правильно Добавлено через 18 минут собрал, просто я оператор вначале вставил а не в конце всей программы, и тогда всё заработало. 0

@Hrethgir 399 / 137 / 3 Регистрация: 25.01.2012 Сообщений: 5,777 Записей в блоге: 141
	08.02.2014, 13:45 [ТС]	16
	UI, а можно сделать несколько операторов, к разным записям? думаю можно, сейчас созрела необходимость, буду пробовать. последний фильтр делаю, по оси Z, правда он урезаный и несколько отличается от фильтров по X и Z. 0

@volvo Супер-модератор 32955 / 21273 / 8168 Регистрация: 22.10.2011 Сообщений: 36,542 Записей в блоге: 8
	08.02.2014, 14:06	17
	Сообщение от Hretgir а можно сделать несколько операторов, к разным записям? Да. Сколько нужно, столько и делается. Параметр перегруженного оператора должен быть того типа, из которого производится присваивание, а результат - того типа, в который нужно присвоить значение. Ограничений на количество операций присваивания нет. 1

Операция наследования с записями

Решение