Скачать: CL | DM;

Простой класс   Найти похожие ветки 

← →
Ntalka   (2006-02-10 23:40) [0]

Подскажите, а то сил уже нет( простой класс, ошибка обращения к памятпи..........где ошибка?

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;
TObj1 = class (TObject)

private
   FMyProp:String;
   function GetProp: String;
   procedure SetProp(value: string);
public
   property MyProp: string read GetProp write SetProp;
end;

var
 Form1: TForm1;
 ob:TObj1;
implementation

function TObj1.GetProp: String;
 begin
    result:=FMyProp;
 end;

procedure TObj1.SetProp(value:String);
 begin
   if (FMyProp<>value)  then  FMyProp:= value;
 end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
 ob.Create;
 ob.MyProp:="show";
 showmessage(ob.MyProp);
 ob.Free;
end;

end.

---

← →
Defunct ©   (2006-02-10 23:42) [1]

> ob.Create;

Вот тут ошибка

---

← →
McSimm ©   (2006-02-10 23:45) [2]

ob.Create;

В данный момент ob неинициализирована (теоретически) и содержит произвольное значение. Вызов каких-либо методов абсолютно неправомерен.

экземпляры класса создаются так:
ob := TObj1.Create;

---

← →
Ntalka   (2006-02-10 23:50) [3]

спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c