StartprogrammingusingObjectPascal:NewsApplication - Revision history

Onionmixer: 오류수정

2013-04-04T11:26:44Z

오류수정

New page

==뉴스 프로그램==

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

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

{| style="border: 1px solid blue;"
|- style="color: white; background-color: black;"
|'''Button1'''
|-
|Caption: 타이틀 추가
|- style="color: white; background-color: black;"
|'''Button2'''
|-
|Caption: 저장 Anchors: Left=False, Right=True
|- style="color: white; background-color: black;"
|'''Edit1:'''
|-
|Text:
|- style="color: white; background-color: black;"
|'''Memo1'''
|-
|ScrollBars: ssBoth ReadOnly: True Anchors: Top=True, Left=True, Right=True, Bottom=True
|}

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

[[image:lazarus_09.png]]

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

[[Category:StartprogrammingusingObjectPascal]]

Onionmixer: SPOP 뉴스프로그램 페이지 추가

2012-07-26T11:28:50Z

SPOP 뉴스프로그램 페이지 추가

New page

===뉴스 프로그램===

이제 다음 순서에 따라 뉴스 제목을 저장하기 위한 프로그램을 작성하려고 합니다.

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

{| style="border: 1px solid blue;"
|- style="color: white; background-color: black;"
|'''Button1'''
|-
|Caption: 타이틀 추가
|- style="color: white; background-color: black;"
|'''Button2'''
|-
|Caption: 저장 Anchors: Left=False, Right=True
|- style="color: white; background-color: black;"
|'''Edit1:'''
|-
|Text:
|- style="color: white; background-color: black;"
|'''Memo1'''
|-
|ScrollBars: ssBoth ReadOnly: True Anchors: Top=True, Left=True, Right=True, Bottom=True
|}

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

[[image:lazarus_09.png]]

* Add Title 단추의 OnClick 이벤트에 대해 이 코드를 작성합니다.
<syntaxhighlight lang="pascal">
Memo1.Lines.Insert(0,
FormatDateTime('yyyy-mm-dd hh:nn', Now) + ': ' + Edit1.Text);
</syntaxhighlight>

* Save 단추에 대해 이 코드를 작성합니다.
<syntaxhighlight lang="pascal">
Memo1.Lines.SaveToFile('news.txt');
</syntaxhighlight>

* 입력한 뉴스를 저장하기 위해 메인 폼의 OnClose 이벤트에 대해 이 코드를 작성합니다.
<syntaxhighlight lang="pascal">
Memo1.Lines.SaveToFile('news.txt');
</syntaxhighlight>

* 메인 폼의 OnCreate 이벤트에 대해, 내용이 존재하는 경우 뉴스 제목을 저장하기 전에 먼저 불러올 수 있는 코드를 작성합니다.
<syntaxhighlight lang="pascal">
if FileExists('news.txt') then
Memo1.Lines.LoadFromFile('news.txt');
</syntaxhighlight>
[[Category:StartprogrammingusingObjectPascal]]