StartprogrammingusingObjectPascal:NewsApplication

뉴스 프로그램

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

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

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

• 타이틀 추가 버튼의 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');