[an error occurred while processing this directive]
Господа Дельфишники, нужна хелп :(
(«Телесистемы»: Конференция «Микроконтроллеры и их применение»)
миниатюрный аудио-видеорекордер mAVR

Отправлено Котик 19 июля 2006 г. 15:20

После полугода писанины на Це :) возник вопрос.


1.Есть объект (нестандартный, наследован от ТОбджект), содержит и методы и поля (стринги):
  PPreviewItem = ^TCaRePreviewItem;
  TPreviewItem = class(TObject)
    file_name : string;
    preview_data : array [0..127] of word;
    procedure init_item_data(filo: string);
    procedure paint_item_data(canvas : TCanvas; r : TRect);
  end;
2.Есть ТЛист для хранения поинтеров на набор 
3.Создаю экземпляры своих объектов, указатели складываю в ТЛист:
...
  current_record := TPreviewItem.Create(); //TList.Item
  current_record.init_item_data(sr.Name);
  files_list.Add(current_record);
...
4.При возникновении надобности обращаюсь к методам:
...
var
  current_record : PPreviewItem;
begin
  current_record := files_list.Items[ARow];
  current_record^.paint_item_data(DrawGrid1.Canvas, Rect);
...
Элементарщина отрисовывается на канве, но когда я внутри paint_item_data обращаюсь к полям экземпляра объекта TPreviewItem, получаю не то чтобы кукиш, но ошибку обращения к адресу...

Собсно вопрос почему не могу обратиться к собственному полю из собственного метода?

Составить ответ  |||  Конференция  |||  Архив

Ответы

Отправка ответа

Имя (обязательно): 
Пароль: 
E-mail: 

Тема (обязательно):
Сообщение:

Ссылка на URL: 
Название ссылки: 

URL изображения: 

Rambler's Top100 Рейтинг@Mail.ru
Перейти к списку ответов  |||  Конференция  |||  Архив  |||  Главная страница  |||  Содержание