VPF::Проблемы с классами - Форум программистов

s-r

Дата 16.9.2007, 09:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть в наличии:

Код


TBoard=class
private 
  FField: array [1..10,1..10] of integer;
public
  setPiece(x,y, piece: integer);
end;

TBoardUI=class(TBoard)
  constructor Create;
end;

TEventDispather=class
private
  Fpgame: ^TGame;
public
  mouseDown(x,y: integer);
  constructor Create(pgame: ^TGame);
end;

TGame=class
public
  board: TBoardUI;
  event: TEventDispather;
  constructor Create;
end;


procedure TBoardUI.Create;
begin

end;

procedure TEventDispather.mouseDown(x,y: integer);
begin
  Fpgame^.board.setPiece(x,y,0);
end;

procedure TEventDispather.Create(pgame: ^TGame);
begin
  Fpgame:=pgame;
end;

procedure TGame.Create;
begin
  board:=TBoardUI.Create;
  event:=TEventDispather.Create(@self);
end;

собственно вопрос:

при вызове метода TEventDispather.mouseDown
код Fpgame^.board.setPiece(x,y,0) выдает ошибку.

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

Snowy

Дата 16.9.2007, 09:38 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

1. Какую ошибку?
2. Объект - уже есть указатель. Зачем тебе указатель на указатель?

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