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

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

Простой класс

Ntalka ©   (2006-02-10 23:40:00) 

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

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.

---

Ntalka   (2006-02-10 23:50:00) [1]

спасибо!

---

McSimm   (2006-02-10 23:45:00) [2]

ob.Create;

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

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

---

Defunct   (2006-02-10 23:42:00) [3]

> ob.Create;

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

---

Наверх