메인폼에 있는 메인메뉴(N1을 누르면 서브폼을 띄우고 파일을 연다

서브폼이 떠있으면 파일만 연다)

(N3를 누르면 파일을 다른 파일에 저장한다)

N1을 누르면 서브폼이 떠있지안으면 에러가 나지안는데 서브폼이 떠있는

상태에서는 에러가 납니다. 에러번호 00449A27

N3을 누르면 에러번호는 00449AF0.

어떤 에런지 알고 싶고요. 에러코드로 알수 있는방법이 있습니까?



파일 열기

//-------------------------------------------------------------

procedure TfMainForm.N1Click(Sender: TObject);

Var ChildForm : TfFil_File;

i : Integer;

begin

If Not OpenDialog1.Execute Then

Exit;



If OpenDialog1.FileName = '' Then

Exit

Else

ToBeChk := True;

sFileName := OpenDialog1.FileName;

sFilePath := ExtractFilePath(OpenDialog1.FileName);



For i := 0 To Screen.FormCount-1 Do

Begin

If Screen.Forms[i].Name = 'fFil_File' Then

Begin

OpenChk := True;

ShowMessage(Screen.Forms[i].Name);

End;

End;



If OpenChk = True Then

Begin

fFil_File.pInitial;

End Else

Begin

ChildForm := TfFil_File.Create(Application);

ChildForm.Show;

End;

SaveChk := False;

N3.Enabled := True;

end;

//-------------------------------------------------------

procedure TfFil_File.pInitial;

begin

RichEdit1.Lines.Clear;

RichEdit1.Lines.LoadFromFile(uMainForm.sFileName);

end;

//---------------------------------------------------------

다른이름으로 저장하기

//-------------------------------------------------------

procedure TfMainForm.N3Click(Sender: TObject);

begin

fFil_File.pToDifSave;

end;

//-------------------------------------------------------

procedure TfFil_File.pToDifSave;

begin

If Not SaveDialog1.Execute Then

Exit;



If SaveDialog1.FileName = '' Then

Exit;



RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);

End;

//----------------------------------------------------------