VPF::Разбираюсь с очисткой TTreeView - Форум программистов

кварк

Дата 7.12.2004, 08:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 2.8.2002

Репутация: нет
Всего: нет

Меня тревожит вопрос, хочу разобраться:

Создаю свой тип:

Код


TMyData = record
  ShortName: String;
  FullName: String;
  Type: Integer;
end;

Заполняю TTreeView примерно так:

Код


var
  tv: TTreeView;
  tn: TTreeNode;
  p: ^TMyData;

. . .
    tn := tv.Items.AddChild(nil, 'Надпись ' + IntToStr(tv.Items.Count));
    GetMem(p, Sizeof(TMyData));
    p^.ShortName := 'ShortName';
    p^.FullName := 'FullName';
    p^. Type := 138;
    tn.Data := p;

Как его очищать? tv.Items.Clear?
В справке написано "Deletes all tree nodes contained from the list managed by TTreeNodes."
А память Data освобождается? А если строки длинные (Список ведь большой может быть)?

Скажите пожалуйста, как все-таки правильно очищать этот список?

~FoX~

Дата 7.12.2004, 09:13 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

TreeView1.Items.Clear - очистит дерево.
А TMyData - очиститься само, по завершении работы.

--------------------

…множественность никогда не следует полагать без необходимости…

кварк

Дата 7.12.2004, 09:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 2.8.2002

Репутация: нет
Всего: нет

То есть если я хочу перестроить дерево, то перед отчисткой надо пробегаться по всем элементам и делать FreeMem(Item.Data, Sizeof(TMyData));? А если там строки были килобайт по 100, как их грохнуть? Может, не со string надо запись делать, а с каким-нибудь классом-оберткой (типа CString). Тогда уж вместо записи надо класс писать. А если String - поле класса, оно уничтожится по free класса или останется висеть до завершения приложения?

Чего-то я совсем запутался под утро :-)

Это сообщение отредактировал(а) кварк - 7.12.2004, 09:40

кварк

Дата 7.12.2004, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 2.8.2002

Репутация: нет
Всего: нет

Я, пожалуй, упустил самое простое решение: TTreeView.OnDeletion. :-(

Буду копать в этом направлении.

~FoX~

Дата 7.12.2004, 12:46 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Цитата

А если String - поле класса, оно уничтожится по free класса

Конечно.

Цитата

с каким-нибудь классом-оберткой (типа CString)

Только не CString, а TStrings или TStringList.

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »