assigned(some)

[sunnmas]

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var ls: TObjectList;
    a: TObject;
begin
  ls:=TObjectList.Create(false);
  if assigned(a) then
    showmessage('0');
  a:=TObject.Create;
  ls.Add(a);
  if assigned(a) then
    showmessage('1');
  if assigned(ls.Items[0]) then
    showmessage('2');
  a.Free;
  if assigned(a) then
    showmessage('3');
  if assigned(ls.Items[0]) then
    showmessage('4');
  ls.Destroy;
end;

end.

Почему я вижу 01234? хочу только 12. Как? особенно не хочу видеть 4, при этом remove/delete нельзя вызывать

[NieL]

Сообщение от sunnmas

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var ls: TObjectList;
a: TObject;
begin
ls:=TObjectList.Create(false);
if assigned(a) then
showmessage('0');
a:=TObject.Create;
ls.Add(a);
if assigned(a) then
showmessage('1');
if assigned(ls.Items[0]) then
showmessage('2');
a.Free;
if assigned(a) then
showmessage('3');
if assigned(ls.Items[0]) then
showmessage('4');
ls.Destroy;
end;

end.

Почему я вижу 01234? хочу только 12. Как? особенно не хочу видеть 4, при этом remove/delete нельзя вызывать

В строке a.Free ты только освобождаешь используемую объектом память, сама объектная ссылка в Nil не устанавливается. Чтобы ее выставить в Nil юзай процедуру FreeAndNil.

[Stilet]

Так легче?

unit Unit1;

interface

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

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

  var ls: TObjectList;
    a: TObject;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
  ls:=TObjectList.Create(false);
  if assigned(a) then
    showmessage('0');
  a:=TObject.Create;
  ls.Add(a);
  if assigned(a) then
    showmessage('1');
  if assigned(ls.Items[0]) then
    showmessage('2');
  a:=nil;
  if assigned(a) then
    showmessage('3');
   ls.Items[0]:=a;
  if assigned(ls.Items[0]) then
    showmessage('4');
  ls.Destroy;
end;

end.

Вообще что это за задача? По-моему дурная как сало без хлеба...

[Пепел Феникса]

вообще то эта процедура проверяет указатель на nil
потому все вполне закономерно