Отцы! Такая в дельфях проблема -- в одном юните у меня класс - ничего особенного - там один рекортд, и пара процедурок -- одна инициализация полей рекорда. В другом модуле (формы) создаю укахатель на класс с помощью new, после попытки обратиться в процедуре генерит исключение. Что сделать?
[email protected]

Нам бы код бы посмотреть бы.

Как я понимаю код небольшой и в сообщение влезет. Так что кидай прямо сюда. А мы рассмотрим.

AntonSaburov
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Dominos;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var c: PDomino;
begin
new©;
c^.Init(0,0);
end;

end.


unit Dominos;

interface
uses SysUtils, classes;
type
DSize=0..6;
TPlain = record
L:DSize;
R:DSize;
end;
PDomino = ^TDomino;



Tdomino = class (TObject)
private
Info:TPlain;

protected

public


Procedure Init(LL:integer{ DSize};RR:integer {DSize});
function GetAsText:string;

published

end;

implementation

{ Tdomino }






Procedure Tdomino.Init(LL:integer{ DSize};RR:integer {DSize});
begin
Info.L:=LL;
Info.R:=RR;
end;

function Tdomino.GetAsText: string;
var d:TPlain;
begin


d:=self.Info ;
GetAsText:=IntToStr(Info.L)+'|'+IntToStr(Info.R);
end;

end.

Ну теперь все понятно. Код правильный смотри ниже. Обрати внимание на следующее:
Если ты объявляешь тип как class, то он автоматически является по сути указателем. И поэтому к нему надо применять метод Create
А объявлять указатель на класс не надо. Переменная такого типа сама указатель и есть.
Просто с не теперь можно без "шляпки" обходиться.

Посмотри внимательно на код процедуры TForm1.Button1Click.
Вот там есть ошибка - будет утечка памяти - ты выделяешь память под объект типа TDomino, а потом локальная переменная c, которая содержит этот указатель у тебя исчезает (он локальная в процедуре). И каждый раз при вызове Button1.Click у тебя будет съедаться кусок памяти размеров с TDomino.

А теперь непосредственно код:

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private  public  end; var  Form1: TForm1; implementation uses Dominos; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var c: TDomino; begin  c := TDomino.Create;  c.Init(0,0); end; end.

Код

unit Dominos; interface uses SysUtils, classes; type  DSize=0..6;  TPlain = record    L:DSize;    R:DSize;  end;  TDomino = class (TObject)  private    Info : TPlain;  protected  public    procedure Init(LL:integer; RR:integer);    function GetAsText:string;  published  end; implementation procedure Tdomino.Init(LL:integer; RR:integer); begin  Info.L:=LL;  Info.R:=RR; end; function Tdomino.GetAsText: string; var d : TPlain; begin  d:=self.Info;  GetAsText:=IntToStr(Info.L)+'|'+IntToStr(Info.R); end; end.

Большое thanx, все сработало