VPF::Access violation - Форум программистов

AS-Web

Дата 1.12.2005, 19:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Я и сам бы хотел это понять! Self - это ссылка на самого себя в коде класса, а main - это объект, объявленный в программе в её общей части.

Даю код Графа:

Код


 TGraph=class
 private
  fRoot: TPnode;
  FSelected: TPNode;
  FNumItems: byte;
  Ffilename: string;
  FCanvas: Tcanvas;
  Fowner:Tcomponent;
  FNotInGraph:tlist;
  FInGraph: tlist;
 public
  Procedure LoadFromFile(s: string);
  Procedure SaveToFile(s: string);
  Function Add(x,y: integer): TPnode;
  Function Extract: TPNode;
  Procedure Connect(what: tpnode;Cost:integer);
  Procedure DrawGraph;
  Procedure ResetChecker;
  Property NumItems: byte read FNumItems write  FNumItems;
  Property Canvas: TCanvas read Fcanvas write  Fcanvas;
  Property Owner: tcomponent read fowner write  fowner;
  Property Root: TPNode read fRoot write  FRoot;
  Property Selected: TPNode read fSelected write  FSelected;
  Constructor Create(Owner:Tcomponent;Canvas:Tcanvas);
  Destructor Free;
 end;

Это сообщение отредактировал(а) AS-Web - 1.12.2005, 19:06

CosmoMan

Дата 1.12.2005, 20:39 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 110
Регистрация: 12.7.2005
Где: Харьков

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

Ооох...
Разбирался я, разбирался.
Мне так кажется, что это какойто компонент по работе с графикой.
Причем он частично закомпиляный. И тот код, который ты говориш - это код компонента. smile

Я не знаю, что там за код, но он все равно неполный. Я коечто попытался угадать.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, unit2, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Shape1: TShape;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 TPNode = ^Links;

 TGraph = class
 private
  fRoot: TPNode;
  FSelected: TPNode;
  FNumItems: byte;
  Ffilename: string;
  FCanvas: Tcanvas;
  Fowner:Tcomponent;
  FNotInGraph:tlist;
  FInGraph: tlist;
 public
  Procedure LoadFromFile(s: string);
  Procedure SaveToFile(s: string);
  Function Add(x,y: integer): TPnode;
  Function Extract: TPNode;
  Procedure Connect(what: tpnode;Cost:integer);
  Procedure DrawGraph;
  Procedure ResetChecker;
  Property NumItems: byte read FNumItems write  FNumItems;
  Property Canvas: TCanvas read Fcanvas write  Fcanvas;
  Property Owner: tcomponent read fowner write  fowner;
  Property Root: TPNode read fRoot write  FRoot;
  Property Selected: TPNode read fSelected write  FSelected;
  Constructor Create(Owner:Tcomponent;Canvas:Tcanvas);
  Destructor Free;
 end;
  Links = class(TGraph); 

 TPGraph = class(TGraph);

 TNode=class
 private
  MinPath: integer;
  Links: TList;
  Checked: boolean;
  Shape: tshape;
  FLabel: tlabel;
  Number: integer;
  Tag: integer;
  FOwner: TPGraph;
  down:boolean;
  fstart: tpoint;
  //Procedure ShapeMosedown: TShape.
 public
  Procedure SetRoot;
  Procedure ResetChecker ;
  procedure ShapeMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  procedure ShapeMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  procedure ShapeMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  Constructor Create(Owner: TPgraph;x,y:integer);
  //property owner: TPGraph read fowner write fowner;
  Destructor Free;
 end;

 TLink=class
  InNode,ToNode: TPNode;
  Cost: Integer;
  procedure Draw(canvas: TCanvas);
  Constructor Create;
  Destructor free;
 end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

function Tgraph.Add(x, y: integer): TPnode;
var curr:Tnode; temp: tpoint;
begin
 temp.x:=x;    
 temp.y:=y;
 curr:=tnode.Create(@self,twincontrol(owner).screentoclient(temp).x,twincontrol(owner).screentoclient(temp).y);
 FNotInGraph.Add(@curr);
 FIngraph.Add(nil);    
 result:=@curr;    
end;


procedure Tgraph.Connect(what: tpnode; Cost: integer);    
var temp:TLink;    
begin    
 if what <>nil then    
 begin    
 temp:=tlink.Create;
 temp.InNode:=what;    
 temp.ToNode:=self.root;
 temp.Cost:=cost;
 //self.root^.
 self.root^.Links.Add(@temp);       //<-Caanu self.root inaccessible
 what^.Links.Add(@temp);
 if not what^.I_O then
 begin    
  fNotInGraph.Extract(what);    
  FIngraph[what^.Number-1]:=@what;    
 end;    
 temp.Draw(main.root^.owner^.fcanvas);    
 end;    
end;


constructor Tgraph.Create(Owner: tcomponent;Canvas:Tcanvas);    
begin    
 root:=nil;    
 fnumitems:=0;    
 fFilename:='';    
 self.owner:=owner;    
 fcanvas:=Canvas;    
 FNotInGraph:=tlist.Create;    
 FInGraph:=tlist.Create;    
end;

procedure Tgraph.DrawGraph;    
var i,j: integer;    
begin    
 for i:=1 to FInGraph.Count-1 do    
  for j:=1 to TPnode(FIngraph.Items[i])^.Links.Count-1 do    
  begin    
   TPLink(TPNode(FIngraph.Items[i])^.Links[j])^.Draw(canvas);    
  end;    
  for i:=1 to FNotInGraph.Count-1 do    
  for j:=1 to TPnode(FNotInGraph.Items[i])^.Links.Count-1 do    
  begin    
   TPLink(TPNode(FNotInGraph.Items[i])^.Links[j])^.Draw(canvas);    
  end;    
end;

function TGraph.Extract: TPNode;    
begin    
 if self.Selected<>nil then    
 begin;    
  if self.selected^.I_O then    
   self.FInGraph.Extract(self.selected)    
  else    
   self.FNotInGraph.Extract(self.selected);    
   self.Selected^.Free;    
   self.selected:=root;    
 end;    
end;

destructor TGraph.Free;    
var i: integer;    
begin    
 for i:=1 to fingraph.Count-1 do    
  if fingraph[i]<>nil then    
   TPNOde(fingraph[i])^.Free;    
 fingraph.Free;    
 for i:=1 to fnotingraph.Count-1 do    
  if fnotingraph[i]<>nil then    
   TPNOde(fnotingraph[i])^.Free;    
 FNotInGraph.Free;    
end;


procedure Tgraph.LoadFromFile(s: string);    
var f: file of byte;  curr: tnode;curr2: Tlink; i,j: integer;    
begin    
 assignfile(f,s);    
 reset(f);    
 read(f,fnumitems);    
 {for i:=1 to fnumitems do    
 begin    
  curr:=tnode.Create;    
  read(f,curr);    
  for j:=1 to curr^.Links.Count do
  begin    
   read(f,curr2);    
   curr2    
  end;    
 end;   }    
end;

procedure TGraph.ResetChecker;    
var i: integer;    
begin    
if root <> nil then    
 root.ResetChecker;    
end;    
procedure Tgraph.SaveToFile(s: string);    
var f: file of TNode;   i: integer;    
begin    
 assignfile(f,s+'.dat');    
 rewrite(f);    
 for i:=0 to self.NumItems-1 do    
  begin    
   if self.FInGraph[i]    
   write(f,self[]);    
  end;    
end;

end.

Того, что ты дал недостаточно.

Alexeis

Дата 2.12.2005, 11:31 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

TPNode = ^Links; - излишне так как TLink=class и переменная объекта этого класса и есть указатель на объект фактически TPNode указывает на адрес по которому хранится указатель который в свою очередь указывает на объект типа TLink. Здесь и зарыта собака так что надо переделать код по нормальному.

Это сообщение отредактировал(а) alexeis1 - 2.12.2005, 11:33

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

CosmoMan

Дата 2.12.2005, 19:44 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 110
Регистрация: 12.7.2005
Где: Харьков

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

Да ты мне код полностию дать можеш!? Я же не экстрасенс.
На мыло мне вышли в конце концов, если это такой секрет.

AS-Web

Дата 5.12.2005, 11:50 (ссылка)

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

Загрузка ...

Новичок

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

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

alexeis1 Спасибо. Я сам дня три назад тоже smile

дошёл.

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