Массив объектов

[_bAd_]

Есть массив объектов некоторого класса. в этом массиве , допустим третий элемент перестал быть нужен. как от него избавиться?

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

Как бы это сделал профи?

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

Delete работает и с массивами.

Как бы это сделал профи?

TList

[_bAd_]

Ладна, ребят, прошу прощения. Скажу иначе

OB1:= TOb.Create;
OB2:= OB1;
OB1:=nil

как обойти механизм уничтожения объекта?

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

Delete,Copy,Insert все три работают и с массивами(о чем гласит и подсказка о параметрах)
на крайняк можно и через CopyMemory сделать

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

 TPhPLIConstants=class
  private
   FList:TList;
  protected
   function GetCount:integer;
   function GetItem(Index:integer):TPhPLIConstant;
  public
   procedure SaveToStream(Stream:TStream);
   procedure LoadFromStream(Stream:TStream);
   constructor Create;
   destructor Destroy;override;
   function Add(AName,AValue:ANSIstring;AConstType:TPhPLIConstType;ADescription:string):integer;
   procedure Clear;
   procedure Delete(Index:integer);
   property Items[Index:integer]:TPhPLIConstant read GetItem;default;
   property Count:integer read GetCount;
 end;

function TPhPLIConstants.GetCount;
begin
 Result:=FList.Count;
end;

function TPhPLIConstants.GetItem;
begin
 Result:=TPhPLIConstant(FList[Index]);
end;

procedure TPhPLIConstants.SaveToStream;
var i:LongInt;
begin
 i:=FList.Count;
 Stream.Write(i,SizeOf(i));
 for i:=0 to FList.Count-1 do TPhPLIConstant(FList[i]).SaveToStream(Stream);
end;

procedure TPhPLIConstants.LoadFromStream;
var i:LongInt;
    P:TPhPLIConstant;
begin
 Stream.Read(i,SizeOf(i));
 FList.Count:=i;
 for i:=0 to FList.Count-1 do
  begin
   P:=TPhPLIConstant.Create;
   P.LoadFromStream(Stream);
   FList[i]:=Pointer(P);
  end;
end;

constructor TPhPLIConstants.Create;
begin
 FList:=TList.Create;
end;

destructor TPhPLIConstants.Destroy;
begin
 Clear;
 FList.Destroy;
 inherited Destroy;
end;

function TPhPLIConstants.Add;
var P:TPhPLIConstant;
begin
 P:=TPhPLIConstant.Create;
 P.Name:=AName;
 P.ConstType:=AConstType;
 P.Value:=AValue;
 P.Description:=ADiscription;
 Result:=FList.Add(Pointer(P));
end;

procedure TPhPLIConstants.Clear;
var i:integer;
begin
 for i:=0 to FList.Count-1 do TPhPLIConstant(FList[i]).Free;
 FList.Clear;
end;

procedure TPhPLIConstants.Delete;
begin
 TPhPLIConstant(FList[Index]).Free;
 FList.Delete(Index);
end;

OB1:= TOb.Create;
OB2:= OB1;
OB1:=nil

как обойти механизм уничтожения объекта?

немного не понял вопроса...
у вас обьект 1 не уничтожается, а он передается обьекту 2.
тут лучше всего вспомнить что обьект в Делфи это указатель на его данные.тогда становится все понятно

[Сергeй]

> Как бы это сделал профи?

Профи при прочих равных условиях не стал бы страдать ерундой с массивом.
Профи знает о существовании стандартного списочно-ориентированного класса TObjectList, избавляющего от необходимости явного разрушения объекта, фигурирующего в составе элементов этого списка.

[_bAd_]

Злые вы.
Но спасибки. Ответ не получил, но можно хоть дальше двигаться. С ТЛистом. (не люблю работать с тем , чьи кишки не знаю как работают. В частности иногда было бы неплохо создать объект, описанный локально. И глобально помнить только указатель на него. И чтоб этот указатель продолжал указывать куда надо после выхода из процедуры)

[Сергeй]

> Ответ не получил

Как это не получил ?
Ты не веришь в существование волшебного TObjectList, который пользуют профи, которыми ты так интересовался ?)

Tак жми же скорей F1 !
И да будет блажен уверовавший))

[_bAd_]

О в это трудно не поверить. Но еще трудней смириться.

[Сергeй]

> еще трудней смириться

С чем ?)
С тем что , в отличие от TList, при использовании его специально "заточенного" наследника TObjectList отпадает необходимость явного разрушения объектов-элементов списка ?)

[_bAd_]

ну раз такой флейм пошел: с тем, что я не знаю как оно работает.