Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=256693&view=findpost&p=2119008 Tue, 18 Nov 2008 16:42:34 +0000 ошибка чтения файла https://forum.sources.ru/index.php?showtopic=256693&view=findpost&p=2119008
    procedure TForm1.Button1Click(Sender: TObject);
    var
       f: file of real;
       c: real;
    begin
       Assignfile(f,'file.bin');
       reset(f);
       try // finally
          while not eof(f) do
          begin
             read(f,c);    // (!) очень близко к смыслу :)
          end; // while
       finally
          CloseFile(f);
       end; // finally
    end;
]]> RuSA Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=256693&view=findpost&p=2118926 Tue, 18 Nov 2008 15:02:50 +0000 ошибка чтения файла https://forum.sources.ru/index.php?showtopic=256693&view=findpost&p=2118926 Цитата Umnik1 @
почему 1?

Вроде уже объяснил - в blockread\write в общем случае передается не размер в байтах, а Count - число "единиц"="записей" размером RecSize. При RecSize=1 мы работаем с байтами и размер задаем в байтах. Для чтения последовательности real можно также использовать reset(f,sizeof(real)) + blockread(f,c,1), т.е. читать по одной записи размером sizeof(real)]]> leo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=256693&view=findpost&p=2118890 Tue, 18 Nov 2008 14:34:21 +0000 ошибка чтения файла https://forum.sources.ru/index.php?showtopic=256693&view=findpost&p=2118890 я думал сначала писать reset(f,4) но тоже ошибка была. почему 1?]]> Umnik1 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=256693&view=findpost&p=2118880 Tue, 18 Nov 2008 14:26:29 +0000 ошибка чтения файла https://forum.sources.ru/index.php?showtopic=256693&view=findpost&p=2118880 ,1);

Добавлено
PS: Если не указывать RecSize, то по умолчанию берется 128 байт и при каждом blockread будет читаться не sizeof©, а sizeof©*128 байт]]> leo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=256693&view=findpost&p=2118876 Tue, 18 Nov 2008 14:23:55 +0000 ошибка чтения файла https://forum.sources.ru/index.php?showtopic=256693&view=findpost&p=2118876
procedure TForm1.Button1Click(Sender: TObject);
var
f: file;
c: real;

begin

Assignfile(f,'file.bin');
reset(f);
while not eof(f) do
begin
blockread(f,c,sizeof(c));
end;
CloseFile(f);

end;

выдается: project1.exe raised exception class EinOutError with message 'read beyond end of file'. Process stopped.

Что не так?]]> Umnik1 Delphi: Общие вопросы