델파이에 입문한지 얼마 안된 초보입니다.
컴파일을 하는데 아래와 같은 메세지가 ....
ProJect Sale_p.exe Raised exceltion class EVccwssViolation with
message. 'Access violation at Address 00000017. Write of Address
EFF08094'. Process Stopped. Use Step or Run to continue.
그래서 try ~ finally 문은 사용하여 자원을 해제했는데도 같은 메서지가
발생하더라구요...
main 부분에 문제가 있는건지 아니면 SUB부분에 문제가 있는건지 잘 모르겠네요...
자원관리는 어떤 식으로 해야되나요?
아직 자원을 관리하는 곳에서는 미흡한 부분이 너무도 많아서 이렇게 질문을
던집니다.
항상 질문만 해서 죄송합니다...
도사님들의 지도를 부탁바라면서....
참고로 제가 처음 작성한 소스의 Main 부분입니다.
unit main_u;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus;
type
Tmain_f = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem; //종료메뉴//
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
procedure N3Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
main_f: Tmain_f;
implementation
uses bank_u, ku_u, item_u, cust_u, dan_u, gi_u;
{$R *.DFM}
procedure Tmain_f.N3Click(Sender: TObject);
begin
bank_f.showmodal;
end;
procedure Tmain_f.N7Click(Sender: TObject);
begin
ku_f.showmodal;
end;
procedure Tmain_f.N4Click(Sender: TObject);
begin
item_f.showmodal;
end;
procedure Tmain_f.N5Click(Sender: TObject);
begin
cust_f.showmodal;
end;
procedure Tmain_f.N6Click(Sender: TObject);
begin
dan_f.showmodal;
end;
procedure Tmain_f.N8Click(Sender: TObject);
begin
gi_f.showmodal;
end;
procedure Tmain_f.N2Click(Sender: TObject);
begin
CLOSE;
end;
end.
|