https://trans.onionmixer.net/wiki/index.php?action=history&feed=atom&title=StartprogrammingusingObjectPascal%3AReadingStudentMarks
StartprogrammingusingObjectPascal:ReadingStudentMarks - Revision history
2026-05-01T11:44:12Z
Revision history for this page on the wiki
MediaWiki 1.43.3
https://trans.onionmixer.net/wiki/index.php?title=StartprogrammingusingObjectPascal:ReadingStudentMarks&diff=246&oldid=prev
Onionmixer: SPOP 학생성적읽기 페이지 추가
2012-07-26T05:28:58Z
<p>SPOP 학생성적읽기 페이지 추가</p>
<p><b>New page</b></p><div>===학생 성적 읽기===<br />
<br />
<syntaxhighlight lang="pascal"><br />
Program ReadMarks;<br />
<br />
{$mode objfpc}{$H+}<br />
<br />
uses<br />
{$IFDEF UNIX}{$IFDEF UseCThreads}<br />
cthreads,<br />
{$ENDIF}{$ENDIF}<br />
Classes, SysUtils<br />
{ you can add units after this };<br />
<br />
var<br />
F: file of Byte;<br />
Mark: Byte;<br />
begin<br />
AssignFile(F, 'marks.dat');<br />
if FileExists('marks.dat') then<br />
begin<br />
Reset(F); // Open file<br />
while not Eof(F) do<br />
begin<br />
Read(F, Mark);<br />
Writeln('Mark: ', Mark);<br />
end;<br />
CloseFile(F);<br />
end<br />
else<br />
Writeln('File (marks.dat) not found');<br />
<br />
Write('Press enter key to close..');<br />
Readln;<br />
end.<br />
</syntaxhighlight><br />
<br />
다음 예제에서는 기존의 데이터를 삭제하지 않고 새 레코드를 덧붙이는 방법을 보여주겠습니다.<br />
[[Category:StartprogrammingusingObjectPascal]]</div>
Onionmixer