Проблема с указателями

[3D Hunter]

Здравствуйте. Кто-нибудь встречался с такой проблемой? А именно: есть на форме компонент ListBox1 и Button1, в глобальных переменных задаю указатель

...
var
  p:^TListBox;
...

В обработчике онклик кнопки такой код:

New(p);
p:=@ListBox1;
p^.Items.Add('Test');
Dispose(p);

В выделенной строчке (при высвобождении памяти) выскакивает ошибка "Invalid Point Operation". Причем, если делать указатель p типа Integer, Real и т.п., то при операции Dispose(p) ошибки не возникает!
Объясните, пожалуйста, почему так и как этого избежать.
Заранее спасибо.

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

1)обьясни а зачем ты выделяешь память под TListBox (New(p);)
а затем присваиваешь ему адресс уже существуещего Бокса(p:=@ListBox1;)?
2)TListBox это класс имеющий свои собственные конструкторы/деструкторы
и при динамической работе нужно работать с классами, при помощи конструкторов/деструкторов
а ты пытаеешься освободить память так, как будто это просто тип данных(Dispose(p);)


попробуй так:

p:=@ListBox1;
p^.Items.Add('Test');
p^.Free

[0nni]

TListBox это и есть указатель, память под него выделять не надо.

var
  p:TListBox;
...

New(p);
p:=ListBox1;
p.Items.Add('Test');
{p.free;//если выполнить эту строку то  уничтожится ListBox1, а саму по себе p уничтожать не надо!!!}

[capta1n]

че вы постоянно спрашиваете, зачем указатель, зачем то, зачем сё - вам поставлен конкретный вопрос - на него и отвечайте, а не умничайте - человек немного не разобрался - ему надо помочь разобраться

[0nni]

Ок мб слишком резко начал, исправил.
Но он не недопонял а недоучил основы ооп. И решил работать в оо-й среде без необходимых знаний. Если дать ему ответ на вопрос - он ведь так всю жизнь делать и будет, а я считаю такие попытки над на корню рубить.

[3D Hunter]

Я понимаю концепции ООП. А зачем я это делаю:у меня в проге 2 листбокса на разных формах, всего 3 операции(удалить все записи, удалить выделенные, обновить). Когда записей много(более 3000), то vcl подвисает. Чтобы этого избежать, все эти процедуры формирую в потоке методом Synchronize. Указатели использую затем, чтобы поток "понял", с каким компонентом ему работать, т.е. эти 3 процедуры полностью завязаны на указателях.
Скажу сразу: ВСЕ РАБОТАЕТ НОРМАЛЬНО.
Собственно вопрос еще раз: КАК КОРРЕКТНО ВЫСВОБОДИТЬ ПАМЯТЬ УКАЗАТЕЛЯ ПРИ ЗАВЕРШЕНИИ ПРОГРАММЫ? смотреть мой пример кода в 1 посте. Про диспоуз понял. Но если я повторю весь код, но без выделенной строчки, как при завершении программы корректно высвободить память указателя p? Или компилятор высвобождает автоматически?

[Kotofff]

Немного теории о памяти в Delphi :
http://www.rsdn.ru/article/Delphi/memmanager.xml

[s.Creator]

3D Hunter, Ты немного не разобрался с динамическим распределением памяти.
New(var P:Pointer) Динамически выделяет память, размер которой определяется типом типизированного указателя Р, и возвращает указателю P адрес выделенной области памяти.
New НЕ ВЫДЕЛЯЕТ ПАМЯТЬ УКАЗАТЕЛЯ.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TMyRec = record
    Ind1: Integer;
    Ind2: Integer;
  end;
  PMyRec = ^TMyRec;

  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
  end;

var VarPMyRec: ^TMyRec; // или : PMyRec
    VarTMyRec: TMyRec;
var
  Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.FormClick(Sender: TObject);
var
  F: TForm1; // это тоже указатель на форму
begin
  New(VarPMyRec); // Выделяется память под новую запись TMyRec и адрес возвращается указателю
  VarPMyRec^.Ind1 := 5;
  Dispose(VarPMyRec); // выделенная под запись память освобождается

  VarPMyRec := @VarTMyRec; // указателю присваевается адрес записи VarTMyRec
  VarPMyRec^.Ind1 := 6;
  // освобождать не надо
  // можно присвоить nil
  VarPMyRec := nil;
  F := Form1; // указателю присваевается адрес формы
  F.Caption := 'Новый заголовок';
end;

end.

[3D Hunter]

Все, понял. Работает. Спасибо всем за помощь!