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

[ast]

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

[klem4]

var
   f : text;
   s : string;
...
while not(eof(f)) do begin
   readln(f,s);
   writeln(s);
end;

+ FAQ Файлы

[ast]

var s: string;
      t: text;
      s: string;

begin
readln(s);
assign(t,s);
reset(t);

while not eof(t) do
begin
readln(t,c);
end;
writeln( c);
end.

В этом случае выводится последняя строка файла. Как загнать весь текст в одну 'с' и как быть в случае длины строки >255?

М

Пользуемся тегами CODE ! klem4

[FreeMan]

Слушай. Хоч сказку про волшебный тег, который оформляет код?
Насчёт вопроса - никак. Можно сделать массив char. А потом читать побайтно.

[klem4]

ast,Внимательно посмотри на мой код и найди одно отличие ... и ты поймешь как сделать чтобы выводилась не только последня строка но и все остальные ...

[volvo]

To: FreeMan
PChar куда делся? Вроде же был такой тип?

[FreeMan]

To: volvo
Действительно, думаю куда он делся. Не учёл. С меня можно 1 с рейтинга снять. Всё равно она халявная

[ast]

как использовать этот тип Pchar? Можно пример

[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.

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

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