Работа с набором файлов — различия между версиями

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

Текущая версия на 08:49, 20 февраля 2016

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;