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

2012-07-26T10:07:05Z

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

New page

===뉴스 기록 프로그램===

이 예제에서는 뉴스 제목을 저장하기 위한 텍스트 파일을 사용할 것이고, 이에 덧붙여서 날짜와 시간을 함께 저장할 것입니다.

프로그램을 닫고 다시 열면, 먼저 입력한 뉴스 제목과 날짜/시간이 표시될 것입니다.

<syntaxhighlight lang="pascal">
Program news;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes , SysUtils
{ you can add units after this };

var
Title: string;
F: TextFile;
begin
AssignFile(F, 'news.txt');
if FileExists('news.txt') then
begin
// Display old news
Reset(F);
while not Eof(F) do
begin
Readln(F, Title);
Writeln(Title);
end;
CloseFile(F); // reading is finished from old news
Append(F); // open file again for appending
end
else
Rewrite(F);

Write('Input current hour news title: ');
Readln(Title);
Writeln(F, DateTimeToStr(Now), ', ', Title);
CloseFile(F);

Write('Press enter to close');
Readln;
end.
</syntaxhighlight>
[[Category:StartprogrammingusingObjectPascal]]

StartprogrammingusingObjectPascal:NewsRecorderProgram - Revision history

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