Виртовский ввод-вывод

program WriteToTypedFile;

{$APPTYPE CONSOLE}

uses
  CRT;

type
  TPerson = record
    Name: string[20];
    Family: string[20];
    IsStudent: Boolean;
  end;

var
  TypedFile: file of TPerson;
  Person: TPerson;

begin
  //связываем файловую переменную с файлом на диске
  AssignFile(TypedFile,'MyFile.txt');
  //открываем файл для записи
  Rewrite(TypedFile);
  Person.Name:='John';
  Person.Family:='Johnson';
  Person.IsStudent := True;
  //добавляем запись в файл
  Write(TypedFile, Person);
  Person.Name:='Peter';
  Person.Family:='Peterson';
  Person.IsStudent := False;
  //добавляем запись в файл
  Write(TypedFile, Person);
  //закрываем файл
  CloseFile(TypedFile);
  WriteLn('Done. Now check you file "MyFile.txt".');
end.

program AddToTypedFile;

{$APPTYPE CONSOLE}

uses
  CRT;

type
  TPerson = record
    Name: string[20];
    Family: string[20];
    IsStudent: Boolean;
  end;

function FileExist(FileName: string): Boolean;
var
  F: file;
begin
  AssignFile(F, FileName);
  Reset(F);
  CloseFile(F);
  Result := (IOResult = 0) and (FileName <> '');
end;

procedure ReadTypedFile;
var
  F: file of TPerson;
  Person: TPerson;
begin
  // связываем файловую переменную с файлом на диске
  AssignFile(F, 'MyFile.txt');
  // открываем файл для чтения
  Reset(F);
  while not Eof(F) do
  begin
    System.Read(F, Person);
    with Person do
      Writeln(Name, ' ', Family, ' ', IsStudent);
  end;
  // закрываем файл
  CloseFile(F);
end;

procedure AppendTypedFile;
var
  F: file of TPerson;
  Person: TPerson;
  Ch: ShortString;
begin
  // связываем файловую переменную с файлом на диске
  AssignFile(F, 'MyFile.txt');
  // открываем файл для чтения и записи
  Reset(F);
  // перемещаем файловый указатель в конец файла
  Seek(F, FileSize(F));
  Writeln('Input name:');
  Readln(Person.Name);
  Writeln('Input family:');
  Readln(Person.Family);
  Writeln('Is he\she student or not(1 - Yes; 2 - No):');
  ReadLn(Ch);
  if Ch[1] = '1' then
    Person.IsStudent := True
  else
    Person.IsStudent := False;
  // добавляем запись в файл
  Write(F, Person);
  // закрываем файл
  CloseFile(F);
end;

var
  TypedFile: file of TPerson;
  YesOrNo: ShortString;

begin
  if not FileExist('MyFile.txt') then
  begin
    // связываем файловую переменную с файлом на диске
    AssignFile(TypedFile, 'MyFile.txt');
    // открываем файл для записи
    Rewrite(TypedFile);
    // закрываем файл
    CloseFile(TypedFile);
  end;
  repeat
    Writeln('Would you like to add an entry to the file?(1 - Yes; 2 - No)');
    ReadLn(YesOrNo);
    case YesOrNo[1] of
      '1': AppendTypedFile;
      '2': Break;
    end;
  until YesOrNo[1] = #0;
  //читаем все записи из типизированного файла
  ReadTypedFile;
end.

program DelFromTypedFile;

{$APPTYPE CONSOLE}

uses
  CRT;

type
  TPerson = record
    Name: string[20];
    Family: string[20];
    IsStudent: Boolean;
  end;

procedure ReadTypedFile;
var
  F: file of TPerson;
  Person: TPerson;
begin
  AssignFile(F, 'MyFile.txt');
  Reset(F);
  while not Eof(F) do
  begin
    System.Read(F, Person);
    with Person do
      Writeln(Name, ' ', Family, ' ', IsStudent);
  end;
end;

var
  TypedFile: file of TPerson;
  Count: LongInt;
  YesOrNo: ShortString;

begin
  AssignFile(TypedFile,'MyFile.txt');
  Reset(TypedFile);
  Count := FileSize(TypedFile);
  if Count < 2 then
    begin
      Writeln('The count of entries in file is less than 2. Erase all?(1 - Yes; 2 - No)');
      Readln(YesOrNo);
      if YesOrNo[1] = '1' then
        Truncate(TypedFile);
    end
  else
    begin
      Writeln('The count of entries in file is equal or more than 2. I am delete 2 entries.');
      Seek(TypedFile, Count - 2);
      Truncate(TypedFile);
    end;
  ReadTypedFile;
end.

program TestFileExist;

{$APPTYPE CONSOLE}

uses
  CRT;

function FileExist(FileName: string): Boolean;
var
  F: file;
begin
  AssignFile(F, FileName);
  Reset(F);
  CloseFile(F);
  Result := (IOResult = 0) and (FileName <> '');
end;

begin
  if FileExist('myfile.txt') then
    WriteLn('The file exists.')
  else
    WriteLn('This file does not exist.')
end.

program WorkWithDir;

{$APPTYPE CONSOLE}

uses
  CRT;

var
  CurDir: ShortString;

begin
  // изменяем текущую директорию
  ChDir('/tmp0/1');
  // создаём папку
  MkDir('NewFolder1');
  // создаём папку
  MkDir('NewFolder2');
  // изменяем текущую директорию
  ChDir('/tmp0/1/NewFolder1');
  // создаём папку
  MkDir('NewFolder3');
  // узнаём текущую директорию
  GetDir(0, CurDir);
  WriteLn('GetDir = ', CurDir);
  WriteLn('press key to delete "NewFolder2"');
  ReadKey;
  // удаляем папку
  RmDir('/tmp0/1/NewFolder2');
end.