| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как работать с динамическими записями. [Win95/98]
MegaVolt © (2002-07-11 16:49:00)В ниже приведённом примере я пытался создать пример для работы с динамическими записями но возникли некоторые проблемы при попытке удаления второго списка т.к. при его создании я не копировал реальные данные а скопировал только указатели на них и когда я удалил первый список то все данные перестали существовать но во втором списке на них остались указатели.
Вопросы:
Как правильно копировать именно данные между:
1. PData и PData
2. PData и TData
3. TData и PData
4. TData и TData
Заранее благодарен :)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TsData=record
List:TList;
Str:string;
end;
TData=packed record
Test: Int64;
Attributes: DWORD;
Name: String;
end;
PData= ^TData;
var
Form1: TForm1;
MyList1,MyList2:TsData;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
MyList1.List:=TList.Create;
MyList2.List:=TList.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
z:PData;
begin
//Создаём динамический массив:
For i:=1 to 1000000 do
begin
New(z);
z^.Attributes:=123456;
z^.Test:=98765432;
z^.Name:="Help me";
MyList1.List.Add(z);
end;
ShowMessage("Ok");
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
z:PData;
begin
//Копируем из первого списка во второй;
For i:=1 to 1000000 do
begin
z:=MyList1.List[i-1];
MyList2.List.Add(z);
end;
ShowMessage("Ok");
end;
procedure TForm1.Button3Click(Sender: TObject);
var
z:PData;
begin
//удаляем оба массмва:
while MyList1.List.Count<>0 do
begin
z:=MyList1.List[MyList1.List.count-1];
Dispose(z);
MyList1.List.Delete(MyList1.List.Count-1);
end;
while MyList2.List.Count<>0 do
begin
z:=MyList2.List[MyList2.List.count-1];
Dispose(z);
MyList2.List.Delete(MyList2.List.Count-1);
end;
ShowMessage("Ok");
end;
end.
Случайный прохожий (2002-07-14 12:18:00) [1]
> Zazoo © (13.07.02 01:08)
> с одной стороны это именно объект(передается в функции как
> копия)
Никогда. Передается только указатель.
Zazoo (2002-07-13 01:08:00) [2]> чайничек
В с++ есть такой оператор "->", он раименовывает указатель и выдирает из соответствующего объекта поле/метод(аналог objptr^.item). В Делфи этот оператор(доступ к члену класса по укзателю на объект) обозначается ".", поэтому компилятор понимает оба варианта.
> любая объектная переменная по сути своей - указатель
Вообще с классами в Делфи не все понятно: с одной стороны это именно объект(передается в функции как копия), а с другой - указатель.
чайничек (2002-07-12 20:01:00) [3]Просветите, чем отличаются обращения к полям записи:
z^.Attributes:=123456;
и
z.Attributes:=123456;
Компилятор принимает оба варианта. И оба работают.
Ведь при обращении к полям объекта мы не пишем VarObject^.Field1
потому как любая объектная переменная по сути своей - указатель.
чайнчек (2002-07-12 20:00:00) [4]Просветите, чем отличаются обращения к полям записи:
z^.Attributes:=123456;
и
z.Attributes:=123456;
Компилятор принимает оба варианта. И оба работают.
Ведь при обращении к полям объекта мы не пишем VarObject^.Field1
потому как любая объектная переменная по сути своей - указатель.
valery_f (2002-07-12 16:16:00) [5]> Yuri-7 (12.07.02 16:00) ...похоже, что процедура Notify у них зарезервирована для будущего использования.
Не для будущего, а для твоего, если тебе нужно будет создать своего собственного специализированного потомка TList"а.
Skier (2002-07-12 16:01:00) [6]>Yuri-7
Ну....тогда смотри Skier © (12.07.02 14:59) :))
Yuri-7 (2002-07-12 16:00:00) [7]>skier
Виноват, похоже, что процедура Notify у них зарезервирована для будущего использования.
Skier (2002-07-12 15:36:00) [8]>Yuri-7
???
Приведи кусок где это происходит.
Yuri-7 (2002-07-12 15:34:00) [9]>skier
Я то имею ввиду, что и данные "убиваются" по указателям. И в D5 и в D6
Skier (2002-07-12 15:24:00) [10]>valery_f
Да. Я смотрел и в D5 то же самое :
в TList.SetCount есть такой кусок:
for I := FCount - 1 downto NewCount do Delete(I);
Ты его имел ввиду ?
> Сорцы - очень интересное место
И к тому же весьма поучительное :)
valery_f (2002-07-12 15:21:00) [11]> Skier © (12.07.02 15:07) Это только для D6 ?
У меня сейчас стоит только шестерка. Загляни в classes... правда, скорее всего, в остальных версиях то же самое. Сорцы - очень интересное место, т.к. когда вдруг обнаруживаешь как оно работает на самом деле... :))))
Skier (2002-07-12 15:16:00) [12]>Yuri-7
Я имел ввиду что Clear не убивает данные "по указателям".
Он только освобождает память выделенную под указатели...
Если не так тебя понял - извини.
Skier (2002-07-12 15:07:00) [13]>valery_f
Это только для D6 ?
valery_f (2002-07-12 15:04:00) [14]> Yuri-7 (12.07.02 14:34) Посмотри в classes.pas, как выполняется Clear!
Да, ты прав - Clear зовет SetCount(0), а там для каждого элемента - Delete (по крайней мере в D6). А учитывая, что ты удаляешь с конца списка - перемещения массива указателей не просходит. Твоя процедура очистки корректна.
Правда непонятно, зачем внутри Clear борланд поставил удаление для каждого элемента. Вполне хватило бы:
procedure TList.Clear;
begin
FCount := 0;
SetCapacity(0);
end;
Ну да ладно... С копированием-то разобрался?
Skier (2002-07-12 14:59:00) [15]>Yuri-7
Ты не прав !
Yuri-7 (2002-07-12 14:34:00) [16]> valery_f
Посмотри в classes.pas, как выполняется Clear!
valery_f (2002-07-12 13:43:00) [17]> Yuri-7 (12.07.02 13:34) В Help написано, что метод Clear и так это делает.
Clear удаляет память, используемую для хранения указателей (!), а ссылаются ли удаляемые указатели на что-то или нет - ему глубоко пополам.
Yuri-7 (2002-07-12 13:34:00) [18]>valery_f
Зачем для TList удалять все элементы индивидуально?
В Help написано, что метод Clear и так это делает.
valery_f (2002-07-12 11:54:00) [19]> MegaVolt © (12.07.02 10:20) ...что такое констаны на которые я ссылаюсь?
При копировании списка ты задаешь цикл "For i:=1 to 1000000", т.е. полагаешься на то, что ты точно знаешь сколько там чего. Это не очень то правильно, т.к. начнешь ты что-то в программе менять, и прийдется тебе лазить по всему исходнику и искать все свои "1000000". Учитывая, что TList имеет св-во Count, лучше использовать его (см. мой пример). В общем, вырабатывай правильный стиль, в сложных проектах без этого никак (замахаешься отлаживать :).
>...метод Pack но он если верить справке удаляет только те указатели которые=nil
Совершенно верно. Сначала я 1) уничтожаю объекты и выставляю указатели на них в nil, а потом 2) одним махом удаляю все пустые указатели. Еще раз - TList при выполнении Delete перераспределяет память, и у тебя это происходит на каждой итерации, что снижает быстродействие, а у меня только один раз. Вот и вся разница.
> ...для этого нужно применять не Dispose а FreeAndNil
Ну, во-первых не путай работу с объектом и работу с указателем. В моем примере сначала зовется Dispose для удаления записи, и затем указатель сбрасывается в nil (это если собираешься юзать метод Pack, если Clear - сбрасывать указатель необязательно). Во-вторых, FreeAndNil работает только с объектами (см. реализацию FreeAndNil в sysutils), но никак не с записями, и потому здесь неприменим.
MegaVolt (2002-07-12 10:20:00) [20]Спасибо за добавление но что такое констаны на которые я ссылаюсь?
При удалении вы ты предлагаешь применять метод Pack но он если верить справке удаляет только те указатели которые=nil и соответственно для этого нужно применять не Dispose а FreeAndNil или я не прав?
| |
Страницы: 