0
type TGagGraph = class(Tobject)

      type ImageInfo = record
       width : integer;
       height:integer;
       srcDC,bufDC: hdc;
   end;

   var imgInf:imageinfo;
   procedure repaint_dc;
   constructor Create;     
 end;

                             implementation

    constructor TGagGraph.Create;
     begin
     imginf.width:=0;           // <------- Exception class EAccsesViolation with messgae 'Accses violation at adress 00435eaf in module re.exe'.
     end;

          //=============================
         var q: tgaggraph;
            begin
               q.create;
            end;

что делать?

1 ответ 1

0

Попробуйте так определить класс + запись:

        ImageInfo = record
       width : integer;
       height:integer;
       srcDC,bufDC: hdc;
   end;

  type TGagGraph = class(Tobject)

   imgInf:imageinfo;
   procedure repaint_dc;
   constructor Create;
 end;

И затем вызвать конструктор ТАК:

.....
obj:TGagGraph;
begin
obj:=TGagGraph.Create;
....

У меня все работает !

2
  • Большое спасибо! Все работает на ура!
    – ололо
    25 янв 2012 в 16:04
  • Незачто =)
    – AseN
    25 янв 2012 в 16:06

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.