DelphiXÎÞÔµÎÞ¹ÊÒýÆðµÄAccess ViolationÎÊÌ⣡
н¨unit2,ÌùÉÏÏÂÃæ´úÂ룺
unit Unit2;
interface
uses
Forms,DXDraws;
type TDX=class
DirectX:TDXDraw;
constructor Create(Owner:TForm);
destructor Free();
end;
implementation
constructor TDX.Create(Owner:TForm);
begin
if DirectX=nil then begin
DirectX:=TDXDraw.Create(Owner);
DirectX.Parent:=Owner;
DirectX.Initialize();
DirectX.Visible:=true;
end;
end;
destructor TDX.Free();
begin
if DirectX <>nil then begin
DirectX.Free();DirectX:=nil;
end;
end;
end.
ÔÚÖ÷unitÀï¼ÓÈëÏÂÃæ´úÂë(¼ÇµÃÔÚusesÀïÌí¼ÓDXDraws,unit2)£º
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;dx:array [0..1] of TDX;
begin
for i:=1 to 2 do begin //µÚ2´Î·¢Éú´íÎó
dx[0]:=TDX.Create(Self);
dx[1]:=TDX.Create(Self);
dx[0].Free();dx[0]:=nil;
dx[1].Free();dx[1]:=nil;
end;
end;
ËüÓÐ2´ÎÑ»·£¬µÚ1´Îû·¢Éú´íÎ󣬵Ú2´ÎÑ»·Ê±·¢Éú´íÎó¡£ÎÒÊÔ¹ý´ïµ½ÕâÑùµÄÌõ¼þʱ²Å»áÓÐ´í£º1.±ØÐëÊÇÒÔÀàµÄÐÎʽ°ÑDelphiX°üº¬ÔÚÀàÀ2.±ØÐëÊÇÊý×é,ÀýÈçdx,Èç¹ûÊǵ¥¸öÔò²»»á·¢Éú´íÎó.
Ö¸ÕëÊͷźÃÏñûÎÊÌ⣬µ½µ×ÊÇʲôÎÊÌ⣿лл£¡
dx[0]:=TDX.Create(Self);
dx[0].Free();dx[0]:=nil;
ÕâÑùÊÔÒ»ÏÂ
dx[1]:
Ïà¹ØÎÊ´ð£º
ÎÒµÄÊý¾Ý¿âÊǼòÌåsqlserver2000 ,ÎÒÏëÔÚ·±ÌåaccessÏÂÁ¬½Ó,ͨ¹ýodbcÊÇ¿ÉÒÔÁË,µ«ÔÚaccessϳöÏÖ´ò¿ªµÄ±íÈ«ÖÐ"#ÒÑɾ³ý"
²»ÖªµÀÒªÔõô²Ù×÷²Å¿ÉÒÔÓÃACCESS·±ÌåÁ¬½Ó¼òÌåsqlserver2000.лл!!!
´ó¼Ò¶¼ ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......
ÄÄλ´ó¸çÓÐACCESSÊý¾Ý¿â °¡£¿
¸øÐ¡µÜÒ»¸ö£¡
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°°ì¹«Èí¼þ£¬Ñ¡Ôñ×Ô¶¨Òå°²×°£¬È»ºóÑ¡ÉÏACCESS¾Í¿ÉÒÔÁË
officeÍêÕ ......