Turbo Pascal - при чтении типизированного файла #100 Disk read error

[triple A]

помогите,

Procedure punkt2;
type comp=record
marka:string;
end;
myfile=file of comp;
var f1:myfile; i,n:integer; c1:comp;
begin
clrscr;
assign(f1,'c:\kyrs\grrart.pas');
reset(f1);
while not eof(f1)do
begin
read(f1,c1);
writeln(c1.marka);
end;
close(f1);


     readln;
end;

ошыбка #100 Disk read error
что я не так делаю?

[Stilet]

А доступ в ту папку вообще есть? Файл такой создан?

[triple A]

да все есть. я уже менял путь, но эта ошыбка не изчезает(

[OlegVE]

Здравствуйте
Может у Вас пустой файл 'c:\kyrs\grrart.pas'?
До свидания

[triple A]

да нет, я же говорю, с файлом все норм. но оно не работает(

[OlegVE]

Может Вы свой файл открываете из двух разных мест одновременно? Вы его закрыли после записи?

[Serge_Bliznykov]

проверил я программу.
Проблема в том, что читаемый файл НЕ ЯВЛЯЕТСЯ файлом
myfile=file of comp;

TC:
возьмите такой код:

Procedure punkt2;
type comp=record
marka:string;
end;
myfile=file of comp;
var f1:myfile; i,n:integer; c1:comp;
begin
  clrscr;
  assign(f1,'c:\kyrs\grrart.pas');
  reset(f1);
  {while not eof(f1)do }
  begin
    read(f1,c1);
    writeln(c1.marka);
  end;
  close(f1);
  readln;
end;

посмотрите, что выдал writeln(c1.marka);
и попытайтесь понять, почему так выдалось...

p.s. Паскаль, как ни странно - делает ровно то, что Вы запрограммировали (а не то, что бы Вам хотелось...)
для чтения подобного файла файл должен иметь СТРОГО ЗАДАННЫЙ ТИП!!!

[Антон Лысенко]

Извините, вопрос не в тему: Может я чем-то и помогу.

marka:string;

в Паскале строка вроде же размером в 2GB? может попробовать написать так

marka:string[100];

[Serge_Bliznykov]

в Паскале строка вроде же размером в 2GB? может попробовать написать так

в Паскале? Нет. Строка может иметь максимум 255 символов.
В Delphi - зависит от компилятора (и от настроек).
AnsiString/WideString (это по умолчанию String в Delphi) - ДА, 2 ГБ.

может попробовать написать так

marka:string[100];

это всё равно не поможет, если читаемый файл не будет состоять из элементов comp получите ТУ ЖЕ САМУЮ ошибку!

[Антон Лысенко]

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

в Паскале? Нет. Строка может иметь максимум 255 символов.
В Delphi - зависит от компилятора (и от настроек).
AnsiString/WideString (это по умолчанию String в Delphi) - ДА, 2 ГБ.



это всё равно не поможет, если читаемый файл не будет состоять из элементов comp получите ТУ ЖЕ САМУЮ ошибку!

Понял. Спасибо за новую информацию)))