Форум: "Потрепаться";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Вниз

Особенности вызовов конструкторов   Найти похожие ветки 

← →
jack128 ©   (2004-07-06 18:12) [7]

блин, пример

type
 TTest = class(TObject)
 public
   constructor Create;
 end;

var
 IsClassMethod: boolean = True;

procedure TForm1.Button1Click(Sender: TObject);
var
 t: TTest;
begin
 IsClassMethod := True;
 t := TTest.Create(); // объект создан
 try
   IsClassMethod := False;
   t.Create(); // так как поднялось исключение, то объект уничтожается
 finally
   t.Free; // t - битый указатель
 end ;
end;

{ TTest }

constructor TTest.Create;
begin
 if not IsClassMethod then
   raise Exception.Create("");
end;

---

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

Форум: "Потрепаться";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.034 c