안녕하십니까 ..
푸휴~~~~~~~
한숨만 나옵니다.
정작 발표하기로 맘먹은 날은 오늘인데...
무슨 놈의 버그가 이리도 많은지 ....
이건 완전히 모래위에 쌓은 성같습니다.
하나 고치면 다른데 서 뻑나고 ..
그거 고치면 아까꺼 뻑나고 .....
남들은 메모장이 쉽다고 하더만
제게는 무지 어렵군요 ... 
ini화일의 구성까지는 어렵사리 해결했는데요 ..
메모장의 ini를 스트링으로 하는 건지 인티져로 하는건지 모르겠습니다.
다음의 제소스에서는 계속적인 에러가 나오고 있습니다.
procedure TForm1.FormCreate(Sender: TObject);
var
inif : Tinifile;
begin
   inif := TInifile.Create('d:\output\전자앨범\exam.ini');
     begin
        form1.height :=inif.Readinteger('form','height',0);
        form1.width := inif.readinteger('form','width',0);
        form1.left := inif.readinteger('form','left',0);
        form1.top := inif.readinteger('form','top',0);

        form1.memo1.color := inif.readstring('form','color','clwhite');
     end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
inif : Tinifile;
begin
   inif := TInifile.Create('d:\output\전자앨범\exam.ini');
   inif.writeinteger('form','height',form1.height) ;

   inif.writeinteger('form','width',form1.width);
   inif.writeinteger('form','left',form1.left);

   inif.writeinteger('form','top',form1.top);
   inif.writestring('form','color',form1.memo1.Color);
end;
문제는 incompetible types of string and integer 입니다.

말못할 버그가 너무 많아서
할말도 무지기수로 많습니다.

하지만 우선적으로 메모장의 색깔이 즉 ,memo.color이 스트링입니까 아니면 인티져입니까 ?
도움말에는 프라퍼티가 Tcolor이라고 되어있는데 이럴때는 어찌합니까 ?


그리고 두번째 왕버그는
mdi폼으로 다중문서를 편집하게 해 놓았는데...

문제는 실행화일을 실행하고서
화일을 부를때는 아무이상이 없지만 ....

탐색기 같은데서 두번클릭한다음에
자동으로 뜬 상태에서는

새로운 문서창(2번째창)을 열면 이전 폼을 다시 생성하는 통에
같은 문서창이 열리고 있습니다. 그러니까 말인즉슨

똑같은 문서2개가 서로 다른창에서 떠있다말입니다,
말그대로 새글이라면 2번째창에는 공백창이 떠야 하는데 말입니다.

3번째 알고 싶은 것은
지금 키보드 상태가 인서트키인지 수정키인지 아는 방법과(실시간으로)
한글상태인지 영문상태인지 아는 것입니다.

키보드의 계속적인 검사를 해서 한글키면 한글캡션을 뿌려주고
영문키면 영문 캡션을 뿌려줄려고 했는데 ..

처음에는 편법을 써서 어떻게든 구현 했습니다.
하지만 모든 방법에 이것이 통용되는 것은 아니더군요 ..

그래서 과감히(?) 제가 그전에 제작했던 소스같지 않은 소스는 지우고
진짜 정통한 방법을 강구하고자 이렇게 메일을 올립니다.

그럼 저는 이만 .....