Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TreeView и очистка памяти, Как очистить память из-под указателя 
:(
    Опции темы
RadmiR
Дата 5.4.2007, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Скажите пожалуйста, как очистить память, выделенную для указателя.

В дате хранится указатель на запись, содержащую ид, родительский ид и имя. При создании заношу данные в запись, но как её освободить?
При этом smile 
Заранее СПАСИБО!
PM MAIL   Вверх
Yanis
Дата 5.4.2007, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 6
Всего: 111
Цитата(RadmiR @  5.4.2007,  13:04 Найти цитируемый пост)
В дате хранится указатель на запись, содержащую ид, родительский ид и имя.

В кокой ещё дате? Я кажется понял, но пиши по русски!
Куда и как ты заносишь? Слова надо подтверждать кодом. 
Некоторым деже проще его прочитать чем прелюдию smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
MetalFan
Дата 5.4.2007, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
смотри что-то про OnDeleteNode )


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
RadmiR
Дата 5.4.2007, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вот запись:
Код

type
  PTVNode = ^TTVNode;

  TTVNode = record
    id: integer;
    pid: integer;
    name: string;
  end;


В процедуре заношу давнные в запись:
Код

    New(RecPtr);
    RecPtr^.id := ID;
    RecPtr^.pid := PID;
    RecPtr^.name := NAME;
PM MAIL   Вверх
Rennigth
Дата 5.4.2007, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 15
Всего: 76
Ну при удалении делай Dispose(RecPtr)


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Yanis
Дата 5.4.2007, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 6
Всего: 111
Цитата(Rennigth @  5.4.2007,  14:21 Найти цитируемый пост)
Ну при удалении делай Dispose(RecPtr) 

Да! smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
aktuba
Дата 5.4.2007, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38
Напиши примерно следующее:
Код

procedure TForm1.FreeNode(Node: PTVNode);
begin
  Node^.Name := '';
  Dispose(Node);
end;


P.S.: пока писал на работе (отвлекали =((() - уже ответили =))))  smile 

Это сообщение отредактировал(а) aktuba - 5.4.2007, 13:52


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Snowy
Дата 5.4.2007, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484
Код

  Dispose(PTVNode(Node.Data));
PM MAIL   Вверх
MetalFan
Дата 5.4.2007, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
aktuba, в случае с New/Dispose в ручную "убивать" дин массивы и строки нет необходимости


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Beltar
Дата 5.4.2007, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 0
Всего: 7
А можно использовать не структуру, а класс без методов, тогда будет меньше геморроя с выделением и освобождением памяти. Типа так:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    TV: TTreeView;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TClass=class(TObject)
  public
    F1:Integer;
    F2:Integer;
    constructor Create;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
TV.Items[0].Data:=TClass.Create;//всего одна строка
end;

procedure TForm1.Button2Click(Sender: TObject);
var cl:TClass;
begin
cl:=TClass(TV.Items[0].Data); //и ^ не нужен.
Label1.Caption:=IntToStr(cl.F1);
Label2.Caption:=IntToStr(cl.F2);
end;

{ TClass }

constructor TClass.Create;
begin
F1:=1;
F2:=2;
end;

end.
 



--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.
PM MAIL   Вверх
aktuba
Дата 5.4.2007, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38
Цитата

aktuba, в случае с New/Dispose в ручную "убивать" дин массивы и строки нет необходимости 


А если вместо string используется WideString?  smile 


--------------------
user posted image
PM MAIL WWW Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0561 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.