Создать программу записи и чтения типизтрованного файла типа стринг?

[Richik123]

Создать программу записи и чтения типизтрованного файла типа стринг?

[Hacker19_90]

да не вопрос вот для чтения

var
  f: Text;
  str: string;
begin
  Assign (f, 'input.txt');
  Reset (f);
  while not(Eof(f)) do
    ReadLn(str);
  Close(f);
end.

[Richik123]

Сообщение от Hacker19_90

да не вопрос вот для чтения

var
  f: Text;
  str: string;
begin
  Assign (f, 'input.txt');
  Reset (f);
  while not(Eof(f)) do
    ReadLn(str);
  Close(f);
end.

мне надо типизировайнный файл, а не текстовый)

[Hacker19_90]

А разницы? Если он типа стринг?

[BDA]

Сообщение от Hacker19_90

А разницы? Если он типа стринг?

А произвольный доступ?

[Hacker19_90]

хм... не могу не согласится!
Вот только не разумно это как-то!

[Richik123]

Сообщение от Hacker19_90

хм... не могу не согласится!
Вот только не разумно это как-то!

мы просто начали проходить сегодня и я не разобрался

[Hacker19_90]

Но однако же отличать типизированный от текстового можете
Главное чтобы при записи строки были чётко фиксированной длины

[Richik123]

Сообщение от Hacker19_90

Но однако же отличать типизированный от текстового можете
Главное чтобы при записи строки были чётко фиксированной длины

ну так это понятно,а сам алгоритм решения задачи не очень

Сообщение от BDA

А произвольный доступ?

нам сказали вставить четверостишье какое - нибудь

[Hacker19_90]

ну попробуй так
#для записи

type
  TStr = string[50];
var
  s: TStr;
  f: file of TStr;
begin
  s := '';
  Assign(f, 'output.dat');
  Rewrite (f);
  while s <> 'end' do
    Write (f, s);
  Close (f);
end.

#Для чтения

type
  TStr = string[50];
var
  s: TStr;
  f: file of TStr;
begin
  s := '';
  Assign(f, 'output.dat');
  Reset(f);
  while not(Eof(f)) do
    Read (f, s);
  Close (f);
end.