Работа с набором файлов

Материал из Вики ИТ мехмата ЮФУ
Версия от 08:49, 20 февраля 2016; Ulysses (обсуждение | вклад) (Новая страница: «<source lang="pascal"> try CreateRandomIntFile('empty-file.dat', 0); // пустой файл // или // MakeTypedFile('empty-file.dat', new integer[0]())…»)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск
try
  CreateRandomIntFile('empty-file.dat', 0); // пустой файл
  // или
  // MakeTypedFile('empty-file.dat', new integer[0]());
  // или
  // MakeTypedFile('empty-file.dat', Arr&<integer>());
  MakeTypedFile('neg3.dat', -45, -1, -3);
  MakeTypedFile('pos1.dat', 4);
  MakeTypedFile('int7.dat', 9, 0, 45, -1, 24, -3, 8);
except
  writeln('File error in making files');
end;

var fnames := new string[4]('empty-file.dat', 'neg3.dat', 'pos1.dat', 'int7.dat');
foreach var fname: string in fnames do
  try
    PrintFile&<integer>(fname); // вместо integer указать нужный тип файлов
    // дальнейшая обработка
  except
    WritelnFormat('File error with "{0}" processing', fname);
  end;