StartprogrammingusingObjectPascal:TextEditorApplication

From 흡혈양파의 번역工房
Jump to: navigation, search

텍스트 편집기 프로그램

이 예제에서는 간단한 텍스트 편집기를 어떻게 만드는지 보여드리겠습니다.

다음 순서를 따릅니다.

  • 새 프로그램을 만들고 메인 폼에 아래 구성요소를 넣습니다.
    1. TmainMenu
    2. TMemo: 정렬 속성을 alClient로 바꾸고, 스크롤 바 속성을 ssBoth로 바꿉니다.
    3. 구성요소 팔레트의 대화상자 페이지에 있는 TOpenDialog와 TSaveDialog
  • MainMenu1 구성요소를 마우스로 두 번 누르고 File 메뉴와 Open File, Save File, Close 하위 메뉴 항목을 추가합니다.

아래와 같은 폼을 보게 될 것입니다.

Lazarus 07.png

  • Open File 항목의 OnClick 이벤트에 대해 이 코드를 작성합니다.
    if OpenDialog1.Execute then
        Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  • Save File 항목에 대해 이 코드를 작성합니다.
    if SaveDialog1.Execute then
        Memo1.Lines.SaveToFile(SaveDialog1.FileName);
  • Close 항목에 대해 이 코드를 작성합니다.
Close;

이 텍스트 편집기 프로그램을 실행한 다음, 텍스트를 작성하고 디스크에 저장할 수 있습니다. 또한 .pas 파일과 같은 기존의 텍스트 파일을 열 수 있습니다.

Lazarus 08.png