[Oleg]

Здравствуйте, у меня вопрос, с которым вот уже несколько дней не могу разобраться.
Переделал всё на максимально простой уровень, чтобы всем было понятно.
Допустим у нас есть процедура:
----------
Случай 1
----------

Код:

1 2 3 4 5 6 7 8 9 10

Procedure AddObject; var myObject:TButton; begin myObject:=TButton.Create(Form1); myObject.Caption:='Test Button'; myObject.Parent:=Form1; AddToList(myObject); // и т.п. end;

Этот объект используется до какого-то момента, но как его затем удалить не из этой процедуры ?
может нужно как-то создать массив, в котором будут указатели(но у меня не получается) .
----------
Случай 2
----------
Если этот объект объявлен в глобальных переменных:

Код:

1 2 3

var   myObject:TButton;   Ptr:^TButton;

и я его создаю в этой процедуре, то я могу его удалить, модернизировав эту процедуру так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Procedure AddToList(var Obj:TButton);  begin  Ptr:=Addr(Obj);  end;     Procedure AddObject; begin myObject:=TButton.Create(Form1); myObject.Caption:='Test Button'; myObject.Parent:=Form1; AddToList(myObject); // и т.п. end;     Procedure DeleteObj; begin FreeAndNil(Ptr^); end;

Так всё прекрасно работает, но только в том случае, если объект этот глобальный, а если он локальный, то как тогда быть ???
______________________
немного другой вопрос:
----------
Случай 3
----------
допустим у нас это переменная глобальная:

Код:

1 2	var myObject:TButton;

а я с помощью той процедуры добавления создаю несколько один их тех же объектов, но уже создал предварительно массив указателей:

Код:

1 2 3 4

var // глобальные переменные   myObject:TButton;   Ptr:array[1..100] of ^TButton;   Count:Integer;

теперь наш код выглядит вот так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Procedure AddToList(var Obj:TButton);  begin  Inc(Count);  Ptr[Count]:=Addr(Obj);  end;   Procedure AddObject; begin myObject:=TButton.Create(Form1); myObject.Caption:='Test Button'+IntToStr(Random(1000)); myObject.Parent:=Form1; myObject.Left:=Random(100); MyObject.Top:=Random(50); AddToList(myObject); // и т.п. end;     Procedure DeleteObj; var i:integer; begin For i:=1 to Count do FreeAndNil(Ptr[i]^); end;

Помогите пожалуйста разобраться как реализовать нормальное удаление, а то если использовать последний случай, то удаляется лишь один объект(добавленный последним) и всё

[Oleg]

Сделал вот так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

var   Ptr:array[1..100] of ^TButton;   Count:Integer;   //==========================      Procedure AddToList(var Obj:TButton);  begin  Inc(Count);  Ptr[Count]:=Addr(Obj);  end;     Procedure AddObject; var   myObject:^TButton; begin new(myObject); myObject^:=TButton.Create(Form1); myObject^.Caption:='Test Button'+IntToStr(Random(1000)); myObject^.Parent:=Form1; myObject^.Left:=Random(100); MyObject^.Top:=Random(50); AddToList(myObject^); // и т.п. end;     Procedure DeleteObj; var i:integer; begin For i:=1 to Count do FreeAndNil(Ptr[i]^); end;

Код:

1 2 3 4 5 6 7 8 9 10 11 12

Procedure DeleteObj; var i:integer; begin For i:=1 to Count do  IF Assigned(Ptr[i]) and Assigned(Ptr[i]^) then  begin  FreeAndNil(Ptr[i]^);  Dispose(Ptr[i]);  Ptr[i]:=nil; end; end;

Вот так всё работает, ура))))))

[0nni]

У всез компонентов есть своейство Components b и ComponentsCount;
Создай например глобальный объект ButtonOwner : TComponent; (не забудь создать в процедуре onCreate)

Код:

1 2 3 4 5 6 7 8 9

Procedure AddObject; var myObject:TButton; begin myObject:=TButton.Create(<b>ButtonOwner</b>); myObject.Caption:='Test Button'; myObject.Parent:=Form1; // и т.п. end;

удаеление последней конпки будет выглядеть так

Код:

1 2	if ButtonOwner.ComponentsCount <> 0 then ButtonOwner.Components[ButtonOwner.ComponentsCount - 1].Free;

Для удаления всех кнопок есть мтоде FreeAllComponents (если не путаю).

Но лучший вариант - воспользоваться списками TList или TObjList

[Oleg]

>> 0nni
так не пойдет, я кнопку взял лишь для примера, у меня свои классы другие.

[0nni]

Замени класс TButton на любой другой класс, в чем проблема?

[0nni]

Сделай вот такие изменения и все будет работать с локальным объектом.

Код:

1 2	Ptr:array[1..100] of TButton; Ptr:TButton;

Код:

1 2 3 4

Procedure AddToList(Obj:TButton); begin Ptr:=Obj end;

Код:

1 2 3 4 5 6 7

Procedure DeleteObj; var i:integer; begin For i:=1 to Count do FreeAndNil(Ptr[i]); end;

Вообще не мешало бы тебе почитать что есть указатель, что есть локальная переменная и почему указатель на него не рекомендутеся передавать, и что такое объект и почему указатель PObject = ^TObject - это глупо.

[Oleg]

Массив мне не подойдет, если бы он мне подходил, то я бы не задавал подобный вопрос.

>>"Вообще не мешало бы тебе почитать что есть указатель, что есть локальная переменная" всё это читал.
>> "и почему указатель на него не рекомендутеся передавать" почему ?
>> "и что такое объект и почему указатель PObject = ^TObject - это глупо." почему ?

[lmikle]

Есть класс TObjectList.
У него есть свойство - OwnObjects. Тогда достаточно просто удалить объект из этого класса и объект будет удален.

Кнопка - для примера.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

type   TForm1 = class(TForm)   ...   private      FList : TObjectList;   ...   end;   ...   procedure TForm1.FromCreate(Sender : TObject); begin   FList := TObjectList.Create(True); end;   procedure TForm1.FromDestroy(Sender : TObject); begin   FList.Free; end;   procedure TForm1.CreateButton(ACaption : String); var   AButton : TButton; begin   AButton := TButton.Create(Nil); // !! Важно !! Если классы свои - то пофиг.   AButton.Caption := ACaption;   FList.Add(AButton);     AButton.Parent := Self; // Это для визуальных контролов. Надо же ее показать :) end;   // Удаляем по заголовку, просто пример. procedure TForm1.DeleteButton(ACaption : String); var   I  : Integer; begin   For I := FList.Count-1 DownTo 0 Do     If (Flist[i] As TButton).Caption = ACaption Then FList.Delete[i]; end;

[0nni]

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

почему ?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

program Project3;   {$APPTYPE CONSOLE}   uses   Windows;   function GetPointerA : PInteger; var   a : integer; begin   a := 10;   result := @a; end;   var   PointerA : PInteger;   begin   PointerA := GetPointerA;   MessageBeep(0);   Writeln(PointerA^);   ReadLn; end.

Попробуй угадать что за число окажется в консоли. А теперь откомпилируй и убедись что не угадал. А теперь убери MessageBeep(0) - черная магия?

По поводу объектов - объект это и есть указатель.

Код:

1 2 3 4

procedure SetButtonCaption(btn : TButton); begin   btn.Caption := 'Hello world!'; begin;

[Oleg]

lmikle, спасибо конечно, но либо название класса неправильное(TObjectList), либо я не знаю в каком он модуле находится.
Этот класс тоже конечно полезный, но объясню как мне нужно в данный момент.
Допустим у меня есть класс:

Код:

1 2 3 4 5 6 7 8 9 10 11

TestClass = class   public   Ptr:^TButton;   Constructor Create(var Obj:TButton);   end;   Constructor TestClass.Create(var Obj:TButton); begin Inherited Create; Ptr:=@Obj; end;

____________
кажется, если это глобальная переменная, то всё работает...
А как быть, если это локальная ?

[lmikle]

Он в модуле Contnrs

Точно так же.
Дело в том, что объект - уже указатель. Так что Ptr := @Obj должно быть Ptr := Obj. А память, выделяемая конструктором, никак не связана с тем, локльная это переменная или глобальная. Она просто выделена. Если создан объект в локальной переменной, и она выходит за область видимости, то ты получаешь утечку памяти, т.к. выделенная память не освобождается.
Тут скорее вопрос, зечем тебе такая обертка? Я не иже в ней смысла.

[Oleg]

Проблема в том, что я программирую и пишу классы под 3D графику, есть свои классы объектов и т.п.
так вот, чтобы контролировать уничтожение объектов, я ввел такое свойство как Destroyng, как только это свойство истинно, то объект уничтожает другая класс, который контролирует все эти объекты, НО этот объект может использоваться и другими процедурами, классами и т.п., если не проверять существует ли этот объект или нет, то вылетает ошибка, т.к. что-то или кто-то пытается получить какие-то данные с объекта, которого уже нет . хоть и стоят проверки Assigned, всё равно такое неприятное явление наблюдается, пытаюсь вот придумать как сделать всё правильно, поэтому хотел использовать указатель на реальный объект и проверять именно через него.

[0nni]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

unit Unit1;   interface   type   //базоый объект   TMyCustomObject = class     constructor Create;     destructor Destroy; override;   end;   procedure Clear; function IsValidObject(Obj : TObject) : Boolean;   implementation   Uses   Classes;   var   Objects : TList;   procedure Clear; var   i : Integer; begin   for I := 0 to Objects.Count - 1 do TObject(Objects[0]).free; end;   //функция проверки function IsValidObject(Obj : TObject) : Boolean; begin   Result := Objects.IndexOf(Obj) <> -1; end;   { TMyCustomObject }   constructor TMyCustomObject.Create; begin   Objects.Add(self); end;   destructor TMyCustomObject.Destroy; var   index : Integer; begin   index := Objects.IndexOf(self);   if index <> -1 then Objects.Delete(index);   inherited; end;   initialization     Objects := TList.Create;   finalization   Clear;   Objects.Free; end.

[Oleg]

Спасибо, 0nni, я уже пробовал через TList, но буду всё же использовать массивы, т.к. именно для данной задачи это будет более простым способом и надежным.
Спасибо за активность.