StartprogrammingusingObjectPascal:NewsRecorderProgram

From 흡혈양파의 번역工房
Jump to: navigation, search

뉴스 기록 프로그램

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

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

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.