StartprogrammingusingObjectPascal:NewsApplication

From 흡혈양파의 번역工房
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

뉴스 프로그램

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

  • 새 프로그램을 만들고 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');