쩝 아냐세염 전 돌파리 입니다. 걍 참고만 하세요 캬캬캬..

우선 문제의 원인은 이부분입니다.

쩝 뭐라고 설명해야 쉬울까여...쩝 지두 욜라 아는게 움써서리..움헤헤...^^;;

걍 무식하게 지가 아는데로 적겠습니다....

물론 처음 한번은 잘 될것입니다.

FrmRegMaterm <- 이넘이 생성이 안돼어있고 메모리 할당이 안돼어 있으니까여

그래서 처음에는  FrmRegMaterm := TFrmRegMaterm.Create(nil);

이넘을  잘 실행 하져....바뚜....그러나

frmregmaterm.Free;  이넘을 만나고 난뒤 분명히 free를 시켰음에도

불구 하고 frmregmaterm 이넘은 완전한 메모리 해제를 하지 못합니다.

한마디로 nil 이 아니라는 얘기죠 도움말에도 보면(지가 욜라 영어 몬해서 정확한지는 알수 움쑴 ^^) 어떤 개체는 소유주가 메모리 해제 될때가지 완전히 메모리 헤제를 하지 못한다고 나와있습니다.

쩝 비유가 될런지 모르지만 밥그릇 안에 밥만 제거시키고 밥 그릇만 남은 상태죠.. 원래는 밥그릇 까지 치워야 하는데.....밥상이 없어질때까지는 밥 그릇도 남아있다는 거죠.... 쩝 이거 말이 되는겨? 캬캬캬...^^;;

고로 다음번
이넘을 만나면 밥 그릇은 아직 남아 있으니 걍 넘어가서

다음 코드를 실행 안하는거죠...

그러면 다음 코드에서는
아뛰 밥두 없는데 뭘 먹으라는겨 하면서 밥 내놓으라고 땡강을 부리는 거져...

캬캬캬..

그럼 어케 하느냐....
걍 쉽게 하자면 frmregmaterm :=nil ; 요렇게 하면 됩니다만...
전 어디에서도 요렇게 쓰는걸 못봤습니다..... 왜그러쥐?
지두 이렇게는 안쓰걸라여........^^
고수님둘...왜그러죠? 쩝 갑자기 궁금하당....에궁 생각하는거 정말 구찮어...
여하튼 정리해서 써보면 요렇게 쓰시면 됩니다.


  if not(assigned(FrmRegMaterm)) then  //아직 생성안되있으면 생성
  FrmRegMaterm := TFrmRegMaterm.Create(Application);
  if frmregmaterm.showmodal = mrok then
  begin
      frmregmaterm:=nil;
   end;

이상 정리 안돼는 허접 답변이었습니다.

하하.. 이처럼 답변을 해주시니..어렴풋이 이해가 갈듯(?)하네요..
딱 저의 수준에 맞는 설명이었슴다..ㅋㅋ
제가 쓴 소스는 책에 있는거 보구 쓴거거덩여..
물론 제가 할거랑 딱맞는 예제가 없어서 제가 이것저것 덧붙인거지만요..-_-;

암튼..
님의 말씀대로라면..

   if not(assigned(FrmRegMaterm)) then  //아직 생성안되있으면 생성
        FrmRegMaterm := TFrmRegMaterm.Create(nil);

요부분에서 if 문을 없애면 될것 같아서 없애봤더니 되더라구염..
님의 말씀대루 하는것과 비교하면..

밥상을 치우든 말든.. 상관 없이
밥을 담아줘라.. 머 이런얘기가 되겠슴다..

사실.. 제가 굳이

frmregmaterm.Free;

요걸 써먹을라구 하는건..
머.. 다 아시리라 생각됩니다만..
쓸데없는 메모리를 절약하자는..
(책에 그렇게 나와 있더라구염.. 배운거슨 써먹는닷~!! 아쟈~!!..-_-;)
프로그래머로써의 근성을 보여주기 위해서 인데..^^;;

님의 말씀대로 하면.. 더욱 확실히 절약이 되는 건가요??
아예 밥상까지 치웠다가 다시 차려주는거니깐..
근데 그렇게 하면.. 아주 근소한 차이일지 몰겠지만..
시스템 부하 라든지... 속도면에서 차이가 있을것 같다는 생각이 들었습니다..
걍 쌩초보의 추측인데..
제 생각이 맞는 건가요??
흠.. 어떻게 하는거시 더 효율적인건가요??

비록 쌩초보이긴 하지만..
걍 이래저래 프로그램만 실행되는..
효율성은 전혀 고려하지 않은..
그런 프로그램은 하구 싶지 않아서리..
확실히 배우고 시푼 욕심이니깐.. 이해해 주시기 바람당..^^;

구럼..답변 부탁드리구욤..

이미 보여주신 친절한 답변..진따루 감사드림다..

즐델 하시구욤~~
항상 행복하시길...

아따 그냥반 참말로 지가 엄청나게 생각하는거 싫어하는 넘인데
이케 또 질문을 던져 불믄 머리가 참말로 아프지라우....

쩝... 다음은 지가 구찮어서 팁에있는 다른 님꺼 샥 배껴 왔습니다. 헤헤
begin
if not(assigned(FrmRegMaterm)) then
   FrmRegMaterm := TFrmRegMaterm.Create(Application);

try
if FrmRegMaterm.ShowModal = mrOK then
begin
  // TODO
end;

finally
FrmModal.Free;
FrmModal := nil;  // 폼의 포인터를 nil 로 설정
end;
end;

Note : try..finally..end 구문은 예상못한 예외가 발생해도 폼의 인스턴스를 정상적으로 해제시킴다.

Note : 폼의 인스턴스를 해제후 폼 포인터에 nil을 설정하는 것은 예기치 못한 버그를 막기 위해 좋은 코딩습관 임다. 선언한 클래스변수인 FrmModal 은 클래스를 가르키는 포인터 입니다. Free 하면 FrmModal에 할당된 메모리는 해제 되겠지만, FrmModal는 여전히 어떤 어드레스를 가지고 있습니다. 실수로 또는 버그로 다시 FrmModal의 메모리를 해제시키려고 시도한다면 최악의 경우 커널영역의 메모리를 지울수도 있습니다. nil은 어드레스 넘버 0번을 가르키며, 시스템은 O번 어드레스영역을 삭제하는 것을 금지합니다.

고맙습니다~!!!!

항상 행복하시길.......