Чтение данных из файла в программы на Pascal: пошаговое руководство

Delphi , Синтаксис , Записи и Множества

В данной статье мы рассмотрим процесс чтения записей заданного типа из файла в программах, написанных на языке Pascal. Мы будем использовать пример, который включает определения типов и запись структуры данных, которые необходимо прочитать из файла.

Шаг 1: Определение типов

В вашей программе уже есть определенные типы данных:

type
  pha = (SenoraBlanco, SenorVerde, SenoraCeleste, ProfesorCiruela,
    SenoritaEscarlata, CoronelMostaza, Biblioteca, Cocina, Comedor, Estudio,
    Vestibulo, Salon, Invernadero, SalaDeBaile, SalaDeSilar, Candelabro,
    Cuchillo, Cuerda, LlaveInglesa, Revolver, Tubo);
  a = Candelabro..Tubo;
  h = Biblioteca..SalaDeSilar;
  p = SenoraBlanco..CoronelMostaza;

  sbr = record
    arma: a;
    habt: h;
    prj: p;
  end;

var
  game: text;
  sobre: sbr;

Шаг 2: Чтение строки из файла и присваивание значений переменным

Попытка чтения, которую вы уже делали:

ReadLn(game, sobre.prj, sobre.arma, sobre.habt);

приводит к ошибке, так как функция ReadLn ожидает отдельные параметры для каждого поля записи, а не всю запись сразу.

Шаг 3: Преобразование текста в данные

Файл содержит текстовые значения, которые необходимо преобразовать в соответствующие типы данных вашей программы. Сначала определим константу с массивом строковых представлений значений pha:

const
  phaStr : array[pha] of string = ('SenoraBlanco', 'SenorVerde', ..., 'Tubo');

Затем создадим функцию для получения целочисленного индекса соответствующего перечисления:

function IndexOfPhaStr(const aStr: string): integer;
begin
  // реализация функции, возвращающей индекс перечисления по строковому представлению
end;

Шаг 4: Чтение и обработка данных из файла

Пример использования TStringList для чтения и разбора строки:

var
  i : Integer;
  sList : TStringList;
  ix : array [1..3] of integer;
begin
  // ...
  sList := TStringList.Create;
  sList.Delimiter := ' ';
  AssignFile(game, 'TEST.Txt');
  Reset(game);
  ReadLn(game, s);
  CloseFile(game);
  sList.DelimitedText := s;
  for i := 0 to 2 do
    ix[i+1] := IndexOfPhaStr(sList[i]);
  // Проверка и присваивание значений переменной sobre
  if (ix[1] in [Ord(Low(p))..Ord(High(p))]) then
    sobre.prj := pha(ix[1]);
  // аналогичные проверки для других полей
  sList.Free;
end;

Заключение

В данном руководстве мы рассмотрели процесс чтения данных из файла в формате, соответствующем определённым типам вашей программы на Pascal. Мы использовали дополнительные средства, такие как TStringList для удобства обработки строковых данных и преобразования их в нужный формат.

Обратите внимание, что приведенный пример не включает обработку ошибок, которую вы можете реализовать самостоятельно в зависимости от требований вашего проекта.

Создано по материалам из источника по ссылке.

'Пошаговое руководство по чтению данных из файла для программ на Pascal.'

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Записи и Множества ::