StartprogrammingusingObjectPascal:NewsApplication: Difference between revisions
Jump to navigation
Jump to search
Onionmixer (talk | contribs) (SPOP 뉴스프로그램 페이지 추가) |
Onionmixer (talk | contribs) (오류수정) |
||
| (2 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
==뉴스 프로그램== | |||
이제 다음 순서에 따라 뉴스 제목을 저장하기 위한 프로그램을 | 이제 다음 순서에 따라 뉴스 제목을 저장하기 위한 프로그램을 작성해보겠습니다. | ||
* 새 프로그램을 만들고 | * 새 프로그램을 만들고 ''gnews''라고 이름 짓습니다. | ||
* TButton | * ''TButton'' 형의 두 개의 버튼을 추가합니다. | ||
* 텍스트 상자(TEdit)를 추가합니다. | * 텍스트 상자(''TEdit'')를 추가합니다. | ||
* 메모(TMemo)를 추가합니다. | * 메모(''TMemo'')를 추가합니다. | ||
* 다음 값들을 따라 구성요소 값을 바꿉니다. | * 다음 값들을 따라 구성요소 값을 바꿉니다. | ||
{| style="border: 1px solid blue;" | {| style="border: 1px solid blue;" | ||
|- style="color: white; background-color: black;" | |- style="color: white; background-color: black;" | ||
| Line 33: | Line 34: | ||
[[image:lazarus_09.png]] | [[image:lazarus_09.png]] | ||
* | |||
<syntaxhighlight lang="pascal"> | * ''타이틀 추가'' 버튼의 ''OnClick'' 이벤트에 대해 이 코드를 작성합니다.<syntaxhighlight lang="pascal"> | ||
Memo1.Lines.Insert(0, | Memo1.Lines.Insert(0, | ||
FormatDateTime('yyyy-mm-dd hh:nn', Now) + ': ' + Edit1.Text); | FormatDateTime('yyyy-mm-dd hh:nn', Now) + ': ' + Edit1.Text); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
* ''저장'' 버튼에 대해 이 코드를 작성합니다.<syntaxhighlight lang="pascal"> | |||
* | |||
<syntaxhighlight lang="pascal"> | |||
Memo1.Lines.SaveToFile('news.txt'); | Memo1.Lines.SaveToFile('news.txt'); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
* 입력한 뉴스를 저장하기 위해 메인 폼의 OnClose 이벤트에 대해 이 코드를 작성합니다.<syntaxhighlight lang="pascal"> | |||
* 입력한 뉴스를 저장하기 위해 메인 폼의 OnClose 이벤트에 대해 이 코드를 작성합니다. | |||
<syntaxhighlight lang="pascal"> | |||
Memo1.Lines.SaveToFile('news.txt'); | Memo1.Lines.SaveToFile('news.txt'); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
* 메인 폼의 OnCreate 이벤트에 대해, 내용이 존재하는 경우 뉴스 제목을 저장하기 전에 먼저 불러올 수 있는 코드를 작성합니다.<syntaxhighlight lang="pascal"> | |||
* 메인 폼의 OnCreate 이벤트에 대해, 내용이 존재하는 경우 뉴스 제목을 저장하기 전에 먼저 불러올 수 있는 코드를 작성합니다. | |||
<syntaxhighlight lang="pascal"> | |||
if FileExists('news.txt') then | if FileExists('news.txt') then | ||
Memo1.Lines.LoadFromFile('news.txt'); | Memo1.Lines.LoadFromFile('news.txt'); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
[[Category:StartprogrammingusingObjectPascal]] | [[Category:StartprogrammingusingObjectPascal]] | ||
Latest revision as of 11:26, 4 April 2013
뉴스 프로그램
이제 다음 순서에 따라 뉴스 제목을 저장하기 위한 프로그램을 작성해보겠습니다.
- 새 프로그램을 만들고 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');