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

← →
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]

спасибо!

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