StartprogrammingusingObjectPascal:ReadingStudentMarks

학생 성적 읽기

Program ReadMarks;

{$mode objfpc}{$H+}

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

var
    F: file of Byte;
    Mark: Byte;
begin
    AssignFile(F, 'marks.dat');
    if FileExists('marks.dat') then
    begin
        Reset(F); // Open file
        while not Eof(F) do
        begin
            Read(F, Mark);
            Writeln('Mark: ', Mark);
        end;
        CloseFile(F);
    end
    else
        Writeln('File (marks.dat) not found');

    Write('Press enter key to close..');
    Readln;
end.

다음 예제에서는 기존의 데이터를 삭제하지 않고 새 레코드를 덧붙이는 방법을 보여주겠습니다.