| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Хочу поменять 2 эл-та коллекции между собой с помощью указателей. [D5, Win95/98]

MaximatorVeter ©   (2002-10-04 23:48:00) 

Необходимо для эффективной сортировки элементов коллекции.
Вот код:

type

TTree = class(TCollectionItem)
public
CI : byte;
procedure SetAddress(p: Ttree);
end;

TTreesCollection = class(TCollection)
private
function GetTrees(Index: Integer): TTree;
procedure SetTrees(Index: Integer; Value: TTree);
public
function Add: TTree;
property Items[Index: Integer]: TTree read GetTrees write SetTrees; default;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TTree.SetAddress(p: TTree);
begin
Self:=p;
end;

function TTreesCollection.Add: TTree;
begin
Result := TTree(inherited Add);
end;

function TTreesCollection.GetTrees(Index: Integer): TTree;
begin
Result := TTree(inherited Items[Index]);
end;

procedure TTreesCollection.SetTrees(Index: Integer; Value: TTree);
begin
Items[Index].Assign(Value);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
Tr:TTreesCollection;
P:TTree;
begin
Tr:=TTreesCollection.Create(TTree);
Tr.Add;
Tr[0].CI:=1;
Tr.Add;
Tr[1].CI:=2;
P:=Tr[0];
Tr[1]:=Tr[0]; // здесь вызывается метод Assign
Tr[0]:=P;
Tr.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Tr:TTreesCollection;
P:TTree;
begin
Tr:=TTreesCollection.Create(TTree);
Tr.Add;
Tr[0].CI:=1;
Tr.Add;
Tr[1].CI:=2;
P:=Tr[0];
Tr[1].SetAddress(Tr[0]);
Tr[0].SetAddress(P);
Tr.Free;
end;

end.

Для первой кнопки вызывается метод Assign, что не приемлимо для эффективной сортировки. Для второй компилятор игнорирует функцию SetAddress (оптимизация). В чем я не прав?

---

MaximatorVeter   (2002-10-05 18:23:00) [1]

Спасибо.
Заметив вчера вечером на форуме, от Вас кстати и ждал ответа (читал вашу статью по коллекциям).

---

Юрий Зотов   (2002-10-05 00:10:00) [2]

> В чем я не прав?

В принципе.

Self - это параметр, передаваемый по значению, поэтому Self:=p ничего не дает (меняется не сам указатель, а его копия в регистре).

Меняйте местами Index"ы элементов, вот и все. Никакие Assign не нужны, а по поводу эффективности - см. TCollectionItem.SetIndex и TList.Move.

---

Наверх