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;
что делать?