Модератор: Модераторы
Код: Выделить всё
Var
i: Integer;
aList: TList;
aObject1: TObject;
Begin
aList := TList.Create;
aObject1 := TObject.Create;
aList.Add(aObject1);
FreeAndNil(aObject1);
For i := 0 To aList.Count - 1 Do
Try
If Assigned(aList[i]) And Not(aList[i] = nil) Then // <- Не поможет
Write(TObject(aList[i]).ToString);
Except On E: EAccessViolation Do
WriteLn('Не помогло :-(');
End;
aList.Free;
End.
Brainenjii писал(а):Сабж ^_^ Assigned и проверка на nil не помогают.
Разумеется не помогают. И не помогут. Не делайте этого.
Код: Выделить всё
FreeAndNil(aObject1);
Код: Выделить всё
Assigned(aList[i]) And Not(aList[i] = nil)Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
List:TList;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button2Click(Sender: TObject); //Удаления последнего (хвоста)
begin
if (List<>Nil) and (List.Count>0) then
begin
TForm(List[List.Count-1]).Free;
List.Delete(List.Count-1); //Обязательно иначе полная чушь
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if (List<>Nil) and (List.Count>0) then
TForm(List[List.Count-1]).Show; //Показываем хвостик
end;
procedure TForm1.Button1Click(Sender: TObject); //Создание в данном случае 10 окон
var I:Integer;
NF:TForm;
begin
if List = nil then
List:=TList.Create;
For I:=1 to 10 do
begin
NF:=TForm.Create(Nil);
NF.Caption:=IntToStr(I);
List.Add(NF);
end;
end;
end.
Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
{ TComplexObject }
PMyObject=^TMyObject;
TMyObject = Object
I:Integer;
S:String;
constructor Create(vI:Integer; vS:String);
end;
var
Form1: TForm1;
List:TList;
implementation
{ TComplexObject }
constructor TMyObject.Create(vI:Integer; vS:String);
begin
I:=vI;
S:=vS;
end;
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button2Click(Sender: TObject); //Удаления последнего (хвоста)
begin
if (List<>Nil) and (List.Count>0) then
begin
Dispose(PMyObject(List[List.Count-1]));
List.Delete(List.Count-1); //Обязательно иначе полная чушь
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if (List<>Nil) and (List.Count>0) then
Caption:= PMyObject(List[List.Count-1])^.S; //Показываем хвостик
//Либо так Caption:= TMyObject(List[List.Count-1]^).S;
end;
procedure TForm1.Button1Click(Sender: TObject); //Создание в данном случае 10 окон
var I:Integer;
NO:PMyObject;
begin
if List = nil then
List:=TList.Create;
For I:=1 to 10 do
begin
NO:=New(PMyObject);
NO^.Create(I, 'Строка№ '+IntToStr(I));
List.Add(NO);
end;
end;
end.
hinst писал(а):Собственно, а TObjectList на щито? он разве не занимается тем, что настраивает там какие-то указатели на события, и каким-то образом когда объект Free, он его удаляет из списка?
stikriz писал(а):паттерн, что есть кто-то, кто создал объект. У него может быть список объектов, которые он создал. Когда объект уничтожается, то он лезет в этот список и удаляет самого себя из него.
Mr.Smart писал(а):wavebvg угу и словить эксепшен доступа к памяти.
