StartprogrammingusingObjectPascal:AddToTextFileProgram

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

텍스트 파일에 추가하기 프로그램

var
    FileName: string;
    F: TextFile;
    Line: string;
    i: Integer;
begin
    Write('Input an existed file name: ');
    Readln(FileName);
    if FileExists(FileName) then
    begin
        // Link file variable (F) with physical file (FileName)
        AssignFile(F, FileName);
        Append(F); // Open file for appending

        Writeln('Please input file contents line by line',
            'when you finish write % then press enter');
        i:= 1;
        repeat
            Write('Line # ', i, ' append :');
            Inc(i);
            Readln(Line);
            if Line <> '%' then
                Writeln(F, Line); // Write line into text file
        until Line = '%';
        CloseFile(F); // Release F and FileName connection, flush buffer
    end
    else
        Writeln('File does not exist');
    Write('Press enter key to close..');
    Readln;
end.


이 프로그램을 실행하고 기존의 텍스트 파일의 이름을 입력하고 난 뒤, 결과는 cat / type 명령을 사용하거나, 또는 디렉터리에서 이 파일을 마우스로 더블클릭 하여 추가된 데이터를 확인할 수 있습니다.