Ошибка при чтении

@Romantik_FM · Регистрация: 03.03.2010

Студворк — интернет-сервис помощи студентам

Доброго времени суток форумчане

у меня вот такая ошибка делаю всё так..
определил тип

Delphi
1
2
3
4
5
6
type
 Tbalanse = record
  name: string[150];
  kod, kol,rol: Integer;
  bper, eper: Currency;
  end;

далее создаю новый файл

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
AssignFile(f, Mainform.filespath);
  Rewrite(f);
  Seek(f,0);
  balanse.god:=sComboBox1.Text;
  write(f,balanse);
  Seek(f,1);
    for i:=1 to 39 do
     begin
       balanse.bper:=0;
       balanse.eper:=0;
       Write(f, balanse);
     end;
    for i:=1 to 39 do
     begin
       balanse.bper:=0;
       balanse.eper:=0;
       Write(f, balanse);
     end;
    for i:=1 to 39 do
     begin
       balanse.bper:=0;
       balanse.eper:=0;
       Write(f, balanse);
     end;
  Closefile(f);

я предполагаю что нужно создать три как бы блока имитации гридов при открытии любого из трёх гридов загружаю в него данные

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
AssignFile(f, Mainform.filespath);
  Reset(f);
  Seek(f,0);
  read(f,balanse);
  Caption:='Баланс (актив) за '+balanse.god;
  Seek(f,1);
     for i:=1 to 39 do
      begin
        BlockRead(f,balanse,1);
        RzStringGrid1.Cells[2,i]:=FloatToStr(balanse.bper);
        RzStringGrid1.Cells[3,i]:=FloatToStr(balanse.eper);
      end;
  Closefile(f);

всё отлично проходит. закрываю форму и сохраняю изменения так

Delphi
1
2
3
4
5
6
7
8
9
10
AssignFile(f, Mainform.filespath);
  Rewrite(f);
  Seek(f,1);
    for i:=1 to 39 do
     begin
       balanse.bper:=StrToFloat(RzStringGrid1.Cells[2,i]);
       balanse.eper:=StrToFloat(RzStringGrid1.Cells[3,i]);
       Write(f, balanse);
     end;
CloseFile(f);

всё отлично работает...открываю закрываю ошибки нет, но как только открываю другую форму и читаю в грид на ней так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
 AssignFile(f, Mainform.filespath);
  Reset(f);
  Seek(f,0);
  read(f,balanse);
  Caption:='Баланс (пассив) за '+balanse.god;
  Seek(f,40);
     for i:=1 to 39 do
      begin
        Read(f,balanse);
        RzStringGrid1.Cells[2,i]:=FloatToStr(balanse.bper);
        RzStringGrid1.Cells[3,i]:=FloatToStr(balanse.eper);
      end;
  Closefile(f);

сразу ошибка

. что я делаю не так?
у меня в гридах по 40 строк.

@i8085 · 15.02.2011, 10:17

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

открываю другую форму и читаю в грид на ней

Может быть, запись там по-другому определена?

Вообще-то нехорошо использовать for при чтении файла. Надо или обрамлять в try, или цикл с проверкой EoF(f). Мало ли почему может не читаться...

@Romantik_FM · 15.02.2011, 10:54 **[ТС]**

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

Вообще-то нехорошо использовать for при чтении файла. Надо или обрамлять в try, или цикл с проверкой EoF(f).

А как нужно создать файл и потом считывать чтобы было без ошибки? EoF вроде до конца файла а мне нужно не всё перезаписывать и считывать а только куски...
Как быть?

Новые блоги и статьи Все статьи Все блоги /
Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .	Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .	Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .
C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .	Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .	Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .	Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .

Опции темы