아래코딩부분을 보면...
파일을 열어보면
'This File is Production of Daily & Monthly'
위와같이 만 적혀있습니다.
그런데 어떻게 파일에서 iNgNo 를 읽어냈는지 이해가 안되네요.

procedure FileReportOpen;
var
    sTmp : String;
    iNgNo : integer;
    TDataFile : TextFile;
begin
    if not FileExists(sSaveFileName) then
    begin
        AssignFile(TDataFile, sSaveFileName);
        ReWrite(TDataFile);
        WriteLn(TDataFile, 'This File is Production of Daily & Monthly' );
        CloseFile(TDataFile);
    end;

    AssignFile(TDataFile, sSaveFileName);
    Reset(TDataFile);

    ReadLn(TDataFile, sTmp);

    iMakeTotal := 0;
    iMakeNg    := 0;

    while not Eof(TDataFile) do
    begin
        Inc(iMakeTotal);

        ReadLn(TDataFile, sTmp);
        iNgNo       := StrToIntDef(sTmp,1);

        if iNgNo <> 0 then Inc(iMakeNg);
    end;

    iMakeOK := iMakeTotal - iMakeNg;

    if (iMakeOK <> 0) and (iMakeTotal <> 0) then rMakePersent := (iMakeOK / iMakeTotal) * 100
        else rMakePersent := 0;

    CloseFile(TDataFile);
end;

procedure FileReportSave(iTestReturn : Integer);
var
    TDataFile : TextFile;
begin
    AssignFile(TDataFile, sSaveFileName);
    Append(TDataFile);

    WriteLn(TDataFile, IntToStr(iTestReturn));

    CloseFile(TDataFile);

    FileReportOpen;
end;