Создание файла и запись данных в него

var
    f: file of char;
    c: char;
    i, n: byte;
 
begin
    assign (f, 'c:\file.txt');
    rewrite (f);
 
    write ('Количество символов: ');
    readln (n);
 
    for i:=1 to n do begin
        write ('Введите символ: ');
        readln (c);
        write (f, c);
    end;
 
    close (f);
 
end.

Процедура assign обеспечивает связь файловой переменной программы с реальным файлом на диске. Первым аргументом указывается переменная, вторым – адресное имя файла.

Процедура rewrite открывает файл в режиме записи, т.е. мы можем вводить данные в файл с помощью процедуры вывода из программы write. Если указанный файл отсутствует на диске, то он будет создан. Если файл существует и содержит данные, то все они будут удалены и заменены в дальнейшем новыми (перезаписаны).

Запись данных в файл – результат выполнения процедуры write (f, c), где f – файловая переменная, а с – выводимый из программы, но вводимый в файл символ.

В конце требуется закрыть файл и «освободить» переменную f. Это делается с помощью процедуры close.

Комментарии

Выбор случайного файла

Как связать переменную(типа text) со случайным файлом. Например у меня есть файл lab1.txt, lab2.txt ... lab10.txt и нужно что бы при каждом запуске программа считывала данные одного из файлов, выбирая его случайным образом. Если можно ответ отправить на почту conik1999@mail.ru

Введите массив строк,

Введите массив строк, представляющих собой названия файла. Индекс элемента определять случайно через random.