Прочитать и вывести на экран файл

[Hacker19_90]

Значит строки длиной больше чем 256 символов!
А чтоб мозги не ломать покажи код! И пример файла!

[protrence]

Fon_Blut, спасибо огромное! Всё заработало...
Есть последний вопрос... Второго варианта кода этой программы нету?

[Fon_Blut]

Могу предложить такой вариант, если поможет:

var
  f: file of char;
  i: integer;
  s: char;

begin
  assign(f, 'c:\a.txt');
  reset(f);

  for i := 0 to filesize(f) - 1 do
  begin
    seek(f, i);
    Read(f, s);
    Write(s);
  end;

  close(f);
  ReadLn
end.

[protrence]

Fon_Blut, спасибо конечно... но препод сказал использовать такие же методы, только как-то по другому...

[Hacker19_90]

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

Могу предложить такой вариант, если поможет:

var
  f: file of char;
  i: integer;
  s: char;

begin
  assign(f, 'c:\a.txt');
  reset(f);

  for i := 0 to filesize(f) - 1 do
  begin
    seek(f, i);
    Read(f, s);
    Write(s);
  end;

  close(f);
  ReadLn
end.

нда! мягко скажем глупо! зачем вручную смещать курсор?
я понимаю когда определённое место в файле! Но весь

использовать такие же методы, только как-то по другому...

ТС а если по другому! То могу предложить через repeat...until и через for!
Дерзайте!

[Fon_Blut]

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

нда! мягко скажем глупо! зачем вручную смещать курсор?
я понимаю когда определённое место в файле! Но весь

ТС а если по другому! То могу предложить через repeat...until и через for!
Дерзайте!

Если честно, я сам таким методом и не пользовался никогда. Однако, как оказалось имеет место быть!

[protrence]

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

ТС а если по другому! То могу предложить через repeat...until и через for!
Дерзайте!

Если я бы знал как =) я только начинающий... и то не давно начал... где-то дня 3-4 назад =)