| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

сбивается указатель [D7, XP]

***mikle*** ©   (2008-11-11 16:28:00) 

Здравствуйте!
Помогите пожалуйста понять почему такое происходит...
Создаю 2 класса: родительский-TMap (ссылку на рисунок формы и ссылку на дочерний объект) и дочерний-TCell (содрежит ссылку на родительский).
После этого пытаюсь изменить свойство рисунка - в этот момент сбивается указатель в дочернем объекте на родительский..
Вот сам код:


unit Unit1;

interface

uses
 Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms, ExtCtrls;

type
  TForm1 = class(TForm)
   Image1: TImage;
   procedure FormCreate(Sender: TObject);
  private
   { Private declarations }
  public
   { Public declarations }
  end;
 
  PMap=^TMap;
 
  TCell=CLASS(TObject)
   map:PMap;
  end;
TMap=CLASS(TObject)
   image:TImage;
 cell:TCell;
  PROCEDURE CreateCell;
  PROCEDURE AttachImage(im:TImage);
  PROCEDURE ResizeImage;
END;

var
 Form1: TForm1;
 Map:TMap;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Map:=TMap.Create;
  Map.AttachImage(Form1.Image1);
  Map.CreateCell;
  Map.ResizeImage;
end;

{ TMap }

procedure TMap.AttachImage(im: TImage);
begin
self.image:=im;
end;

procedure TMap.CreateCell;
begin
self.cell:=TCell.Create;
  self.cell.map:=@self;
end;

procedure TMap.ResizeImage;
begin
  self.image.Height:=100;   //ССЫЛКА СБИВАЕТСЯ ЗДЕСЬ
  self.image.Width:=100;
end;

end.


До выполнения указанного действи дебагер показывал это:
Map                 (image:$95365C; cell:$953BA0)
Map.cell            (map:$12FE14)
Map.cell.map^   (image:$95365C; cell:$953BA0)
self                  (image:$95365C; cell:$953BA0)
self.cell.map^    (image:$95365C; cell:$953BA0)
После него это:
Map                 (image:$95365C; cell:$953BA0)
Map.cell            (map:$12FE14)
Map.cell.map^   (image:$4438B00; cell:$FDEB6BE8)
self                  (image:$95365C; cell:$953BA0)
self.cell.map^    (image:$4438B00; cell:$FDEB6BE8)

После выполнения второго действия  значени Map.cell.map^  опять изменяется.

Сам просто бьюсь лбом об стену уже пол дня... подскажите пожалуйста!

---

Amoeba   (2008-11-11 16:57:00) [1]

Автору вопроса рекомендую:
http://www.delphikingdom.com/lyceum/

---

***mikle***   (2008-11-11 16:53:00) [2]

Большое спасибо!
я просто не знал что с классами преобъявление другое... в пасе всю жись делал так...

PMap=^Map;
Map=object
end;

вот и получилось.. видимо не внимательно читал хелп :)
кста, ещё почему не посмотрел - привык что в обероне так же предопределяются процедуры (через ^). Кстати - там же (в Обероне) можно тип не предопределять, а сразу сделать рекурсивные указатели - компилятор это понимает, потому в дельфях немного не привычно))

---

Сергей М.   (2008-11-11 16:44:00) [3]

и self'ы убери везде - в данномконтексте он 5-е колесо у телеги

---

Amoeba   (2008-11-11 16:39:00) [4]

Для начала убери нафиг такое:

> PMap=^TMap;

и впредь больше не создавай указателей на указатель. Переменная или поле типа объектного типа уже и так является указателем.

---

Сергей М.   (2008-11-11 16:35:00) [5]

type
 TMap = class; //предобъявление класса TCell

 TCell=class
..
  map:TMap;
..
 end;

// в том же разделе type (!!) окончательное объявление ранее предобъявленного класса TMap

 TMap=class
..
  cell:TCell;
..
 end;

---

Наверх