Считать файл Txt в переменную. Опции

[ast]

Как считать содержимое файла txt в строковую переменную?

[volvo]

uses strings;
var
  f: text;
  s: string;
  len: word;
  ps, ss: PChar;

begin
  assign(f, 'test.txt');
  reset(f);

  len := 0; { Посмотрим, сколько символов в файле  }
  while not eof(f) do begin
    readln(f, s); { Читаем обычную строку }
    inc(len, length(s)) { Считаем ... }
  end;

  WriteLn('Length = ', len); { Убеждаемся, что файл длиннее 255 символов }

  { И начинаем читать в PChar }
  reset(f);
  ps := ''; { Для начала - пустая строка }
  while not eof(f) do begin
    readln(f, s); { Читаем обычную строку }

    s := s + #0; { Конвертируем в дополнительный PChar }
    ss := @s[1];

    strcat(ps, ss); { Добавляем к основной строке }
  end;
  close(f);
  { И работаем с PChar с помощью процедур и функций из модуля Strings }

end.

Как видишь, ничего сложного ...

Тестировалось с этим файлом: