StartprogrammingusingObjectPascal:AddToTextFileProgram

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

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 명령으로, 또는 붙은 데이터를 보기 위해 디렉터리에서 이 파일을 마우스로 두 번 눌러서 볼 수 있습니다.