StartprogrammingusingObjectPascal:NewsRecorderProgram

From 흡혈양파의 번역工房
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

뉴스 기록 프로그램

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

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

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.