StartprogrammingusingObjectPascal:NewsApplication

From 흡혈양파의 번역工房
Revision as of 11:26, 4 April 2013 by Onionmixer (talk | contribs) (오류수정)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

뉴스 프로그램

이제 다음 순서에 따라 뉴스 제목을 저장하기 위한 프로그램을 작성해보겠습니다.

  • 새 프로그램을 만들고 gnews라고 이름 짓습니다.
  • TButton 형의 두 개의 버튼을 추가합니다.
  • 텍스트 상자(TEdit)를 추가합니다.
  • 메모(TMemo)를 추가합니다.
  • 다음 값들을 따라 구성요소 값을 바꿉니다.


Button1
Caption: 타이틀 추가
Button2
Caption: 저장
Anchors: Left=False, Right=True
Edit1:
Text:
Memo1
ScrollBars: ssBoth
ReadOnly: True
Anchors: Top=True, Left=True, Right=True, Bottom=True


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

Lazarus 09.png


  • 타이틀 추가 버튼의 OnClick 이벤트에 대해 이 코드를 작성합니다.
       Memo1.Lines.Insert(0,
       FormatDateTime('yyyy-mm-dd hh:nn', Now) + ': ' + Edit1.Text);
    
  • 저장 버튼에 대해 이 코드를 작성합니다.
       Memo1.Lines.SaveToFile('news.txt');
    
  • 입력한 뉴스를 저장하기 위해 메인 폼의 OnClose 이벤트에 대해 이 코드를 작성합니다.
       Memo1.Lines.SaveToFile('news.txt');
    
  • 메인 폼의 OnCreate 이벤트에 대해, 내용이 존재하는 경우 뉴스 제목을 저장하기 전에 먼저 불러올 수 있는 코드를 작성합니다.
       if FileExists('news.txt') then
          Memo1.Lines.LoadFromFile('news.txt');