объяснить код на Delphi за WMR

[HelpMeGiveWmr]

Понимая, что данные формы посещают только хорошие программисты, прошу помочь.

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

За полный ответ ( с объяснениями на русском ) заплачу 100 WMR.

procedure TFigure.con_y(y:integer);
begin
self.nach_y:=y;
if (Self.y>0)and(Self.y<9)and(Self.x>0 )and(Self.x<9) then
Self.Image.Parent:=PanelArray[Self.x,Self.y]
else
Self.Image.Parent:=PanelArray[0,0]

end;


В конце вашего поста, оставьте ваш кошелек, деньги переведу вечером.

[HelpMeGiveWmr]

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

Понимая, что данные формы посещают только хорошие программисты, прошу помочь.

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

За полный ответ ( с объяснениями на русском ) заплачу 100 WMR.

procedure TFigure.con_y(y:integer);
begin
self.nach_y:=y;
if (Self.y>0)and(Self.y<9)and(Self.x>0 )and(Self.x<9) then
Self.Image.Parent:=PanelArray[Self.x,Self.y]
else
Self.Image.Parent:=PanelArray[0,0]

end;


В конце вашего поста, оставьте ваш кошелек, деньги переведу вечером.

конкретно интересует, что делают

if (Self.y>0)and(Self.y<9)and(Self.x>0 )and(Self.x<9) then
Self.Image.Parent:=PanelArray[Self.x,Self.y]
else
Self.Image.Parent:=PanelArray[0,0]

или хотя бы

Self.Image.Parent:=PanelArray[Self.x,Self.y]
else
Self.Image.Parent:=PanelArray[0,0]

За ответ в течении нескольких минут заплачу 150 WMR.

[Vanta11a]

Что-то типа проверки на место хода, чтоли.
TFigure.nach_y присваивается значение y, переданное в функцию, потом TFigure.у и TFigure.х проверяются на нахождение в диапазоне [1..8], если они в диапазоне, то TFigure.Image.Parent присваивается родитель PanelArray[TFigure.x,TFigure.y], иначе присваивается родитель с нулями.

Скорее всего проверка фигуры на невыход за границы поля.

[3D Hunter]

В данном коде проверяется принадлежность фигуры любой клетке, за исключением граничных. И в зависимости от расположения определяется компонент-родитель для отображения фигуры. Предположу, что данная процедура проверяет возможность перемещения. Только не делается проверка на граничный [9,9]. В этом может быть ошибка. У вас на форме располагается 100 панелей и 1 имадж, который меняет родителя для прорисовки (делается ход) взависимости от допустимости условия. Наверное так.

[Mad_Cat]

procedure TFigure.con_y(y:integer);
begin
self.nach_y:=y; // что это хз
if (Self.y>0)and(Self.y<9)and(Self.x>0 )and(Self.x<9) then // проверяем координаты 
Self.Image.Parent:=PanelArray[Self.x,Self.y] // и если они в доске [1..8] переставляем фигуру
else
Self.Image.Parent:=PanelArray[0,0] // иначе Фигуру ставим на клетку [0,0] опять таки хз что это за клетка(скорее всего предыдущие координаты)
(*То что отмечено как хз по этой процедуре не определяемо*)

[3D Hunter]

Огласите победителя! кто является счастливым обладателем 150 деревянных, а?

[Igor[Игорь]]

Igor23dec@yandex.ru
ICQ 2168364

[flance]

> Огласите победителя! кто является счастливым обладателем 150 деревянных, а?

Победителем стал HelpMeGiveWmr, получивший объяснение, как работает код, на халяву.

[sheka]

+1.

Тов.Админы, чего там за правила такие, что нельзя отзывы ставить одному и тому же человеку подряд???