error 100: disk read error

[4итер]

Здравствуйте, мне нужно изменить данную процедуру.

procedure ReadFromTxt(var Matr: TMatr);
const
  Direction = 'C:\File.dat';
var
  FileCh: Text;
  i, j: Byte;
begin
  Assign(FileCh, Direction);
  Reset(FileCh);
  for i:=1 to Max_Value do
    for j:=1 to Max_Value do
      read(FileCh, Matr[i, j]);
  Close(FileCh);
end;

Нужно чтобы программа сама генерировала значения, создавала файл и записывала их в него.
наброски есть, но почему то вылазиет ошибка. помогите пожалуйста

procedure ReadFromTxt(var Matr: TMatr);
const
  Direction = 'С:\File.dat';
var
 
  i, j: Byte;
  a,a1:integer;
begin
randomize;
  Assign(FileCh, 'С:\File.dat');
  rewrite(FileCh);
 
  for i:=1 to sqr(Max_Value) do begin
  a:=random(65535)-32767;
  write (FileCh,a);
  end;
  close(FileCh);
  reset(FileCh);
  for i:=1 to Max_Value do
    for j:=1 to Max_Value do  begin
      read(FileCh,a1);
      Matr[i, j]:=a1; end;
  Close(FileCh);
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

если вам реально нужно использовать текстовый файл (меня расширение .dat немножко настораживает - не идёт ли здесь речь о типизированном файле), то рекомендую Вам заменить все write( FileCh, xxx) на WriteLn(FileCh, xxx)
ну и, соответственно, все Read( FileCh, xxx) на ReadLn( FileCh, xxx)

в этом случае каждое число будет располагаться в отдельной строке текстового файла.


p.s. ну и неплохо бы подумать о том, как защить свою программу от отстуствия нужных данных (например, если конец файла встретится раньше, чем будут прочитаны все Max_Value * Max_Value значения!
можно, например, в цикле проверять if Eof( FileCh) then begin ВыдатьОШибку; ПрерватьПрограмму; end;

[4итер]

в том то и дело, файл типизированный.
при изменении read и write, получилась еще одна ошибка: invalid file type.

p.s. ну и неплохо бы подумать о том, как защить свою программу от отстуствия нужных данных (например, если конец файла встретится раньше, чем будут прочитаны все Max_Value * Max_Value значения!

А вот про это можно поподробнее, не совсем понял..

[Serge_Bliznykov]

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

тогда это ошибка:

var
  FileCh: Text;

текстовый файл НЕ ЯВЛЯЕТСЯ типизированным!

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

var
  FileCh : file of Integer;

[4итер]

да, у меня в начале программы это было уже, ну да ладно. ошибка 100 не как не убирается