Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Maria112
0 / 0 / 0
Регистрация: 27.09.2012
Сообщений: 27
#1

Ошибка при работе с файлами - Delphi

13.12.2012, 11:39. Просмотров 376. Ответов 3
Метки нет (Все метки)

Дан код. Необходимо при работе с фалом вывести на экран тех, кто достиг пенсионного возраста. При запуске выбивает ошибку. Как ее исправить?

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
type
  pencioners=record
    PIB:      string[50];
    gender:   string[10];
    age:      integer;
  end;
  mas=array[1..10] of pencioners;
const
  a:mas =((PIB:'Ivanov Sergiy Sergiyovich';gender:'male';age:67),
          (PIB:'Kramarenko Tatiana Ivanivna';gender:'female';age:68),
          (PIB:'Milich Natalia Volodimirivna';gender:'female';age:33),
          (PIB:'Dolmatov Sergiy Oleksandrovich';gender:'male';age:22),
          (PIB:'Kinah Olena Mikolaivna';gender:'female';age:77),
          (PIB:'Malishev Anatoliy Yakovich';gender:'male';age:90),
          (PIB:'Natamov Oleksandra Grigorivna';gender:'female';age:86),
          (PIB:'Martina Milena Vasilivna';gender:'female';age:66),
          (PIB:'Kotushin Valeriy Viktorovich';gender:'male';age:68),
          (PIB:'Shepeleva Marina Oleksandrivna';gender:'female';age:45));
var
  f:file of pencioners;
  i:integer;
 
begin
  assignfile(f,'pencion.dat');
  rewrite(f);
  for i:=1 to 10 do
    begin
      write(f,a[i]);
    end;
  closefile(f);
  reset(f);
  while not eof(f) do
    begin
      read(f,a[i]);
        if a[i].age > 60 then
          begin
            writeln(a[i].PIB,' ',a[i].gender,' ',a[i].age);
          end;
    end;
readln;
end.

http://www.cyberforum.ru/delphi-beginners/thread1173013.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2012, 11:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ошибка при работе с файлами (Delphi):

Ошибка при работе с типизированными файлами
У меня проблема! помогите пожалуйста. Пишу в делфи TStudent=record...

Постоянно вылетает ошибка при работе с INI файлами в Delphi 7
Не могу работать с INI файлами , постоянно вылетают ошибки , никаких...

Обработка ошибок при работе с файлами
Обработка ошибок при работе с файлами.Нужно переписать файл в другой файл...

Ошибка при работе с ComboBox при использовании FindComponent
Есть комбобокс, список в него загружается из стринггрида. Потом по выбранному...

Ошибка при работе с If
Добрый день, помогите разобраться с If, есть процедура нажатия кнопки, при...

3
OverDozero
99 / 99 / 50
Регистрация: 07.04.2011
Сообщений: 525
13.12.2012, 12:34 #2
Что за ошибка?И можно выложить проект?
0
DaMortum
243 / 146 / 31
Регистрация: 07.10.2012
Сообщений: 401
13.12.2012, 12:56 #3
Массив а константа, и читать в него из файла нельзя. Самое простое решение - объявить другой массив типа mass и использовать его для чтения из файла.
0
Игорь[Igor]
716 / 468 / 128
Регистрация: 24.12.2008
Сообщений: 3,901
13.12.2012, 14:58 #4
Можно из файла писать в переменную, а записанное значение переменной в массив.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2012, 14:58
Привет! Вот еще темы с решениями:

Ошибка при работе в потоке
Писал софт с использованием многопоточности. В процедуре потока Execute...

Ошибка при работе конструктора
Здравствуйте. При вызове конструктора любого производного класса получаю:...

ошибка при работе с TChart
Здравствуйте!Помогите, пожалуйста, в решении проблемы. Нужно создать круговую...

Ошибка при работе с OpenDialog1
Добрый день! Небольшая проблема с Delphi 7. Если при загрузке файла, в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru