Процедура Read – дозволяє прочитати дані із двійкового або текстового файлу

Процедура Read в Delphi – дозволяє прочитати дані із двійкового або текстового файлу.

Процедура Read: Читання простих символів одночасно з текстового файлу

var
  myFile : TextFile;
  letter : char;
  text   : string;

begin
  // Спроба відкрити файл Test.txt для запису до нього
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Запис рядка тексту в файл
  WriteLn(myFile, 'Hello');
  WriteLn(myFile, 'To you');

  // Закриття файлу
  CloseFile(myFile);

  // Перевідкриття файлу лише для читання
  FileMode := fmOpenRead;
  Reset(myFile);

  // Показ вмісту файлу
  while not Eof(myFile) do
  begin
    // Процес зчитування одного рядка
    ShowMessage('Початок нового рядка :');
    while not Eoln(myFile) do
    begin
      Read(myFile, letter);   // Читання та відображення одного символу
      ShowMessage(letter);
    end;
    ReadLn(myFile, text);
  end;

  // Закриваємо файл востаннє
  CloseFile(myFile);
end;

Процедура Read: Читання word даних із типізованого двійкового файлу

var
  myWord, myWord1, myWord2 : Word;
  myFile : File of Word;

begin
  // Спроба відкрити двійковий файл Test.cus для запису
  AssignFile(myFile, 'Test.cus');
  ReWrite(myFile);

  // Запис кількох рядків Word даних у файл
  myWord1 := 234;
  myWord2 := 567;
  Write(myFile, myWord1, myWord2);

  // Закриваємо файл
  CloseFile(myFile);

  // Перевідкриваємо файл у режимі лише для читання
  Reset(myFile);

  // Показ вмісту файлу
  while not Eof(myFile) do
  begin
    Read(myFile, myWord);
    ShowMessage(IntToStr(myWord));
  end;

  // Закриваємо файл востаннє
  CloseFile(myFile);
end;