Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Overloader
1

Delphi 10 Lite с файлами записей

24.01.2010, 14:09. Просмотров 1293. Ответов 2
Метки нет (Все метки)


И так, у нас есть задача.
Создайть файл записей(record). В каждой записи должно быть имя города, и количество живущих в нём людей. После того, как мы ввели, нам необходимо в файле найти город с наибольшим количеством жителей и поменять его с 1 городом в файле записей местами. Я начал писать программу. Но после того как я ввожу имя второго города, оно мне выдаёт ошибку : Exception class EInOutError with message 'Invalid numeric input'. Process Project6.exe (1320)
Вот сам код моей программы на ввод и вывод из файла:

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
program Project6;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
Type Goroda=record
name:string[20];
kolvo:integer;
end;
Var
gor:array[1..100] of goroda;
f:file of goroda;
i,n,j:integer;
g:string[20];
begin
  Write('Vvedite Kol-vo gorodov: ');
  readln(n);
  Write('Vvedite imja faila');
  readln(g);
  assign(f,g);
  rewrite(f);
    for i := 1 to n do
       begin
         write(f,gor[i]);
         read(gor[i].name);
         read(gor[i].kolvo);
       end;
    close(f);
    for I := 1 to n do
      begin
        read(f,gor[i]);
      end;
      close(f);
      readln;
      readln;
  end.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2010, 14:09
Ответы с готовыми решениями:

Delphi 7 lite
Здравствуйте. Хочу начать изучать дельфи, но возможности скачать полную версию размером в гиг нет....

Delphi XE 2 Lite ошибка
При попытке компиляции выдает delphi xe2 lite Exeption EExternalExeption in module программа.exe

Delphi 10 lite + Firebird
Как прицепить компоненты для работы с FireBird к облегченному Delphi? Или надо ставить только...

Delphi Lite Edition
Привет форумчане. Вопрос будет у меня до ужаса для вас странный, но все же... Видел в интернете...

__________________
Помогаю в написании студенческих работ здесь.
2
Overloader
27.01.2010, 12:25 2
Помогите, пожалуйста с задачей.
163 / 140 / 23
Регистрация: 28.12.2009
Сообщений: 365
27.01.2010, 13:09 3
Цитата Сообщение от Overloader Посмотреть сообщение
write(f,gor[i]); read(gor[i].name); read(gor[i].kolvo);
во-первых надо сначала read, а потом write в файл. а то ты пустое записываешь

Добавлено через 30 минут
вот работает)
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
program Project6;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Type Goroda=record
name:string[20];
kolvo:integer;
end;
Var
gor:array[1..100] of goroda;
f:file of goroda;
i,n,j:integer;
g:string[20];
begin
  Write('Vvedite Kol-vo gorodov: ');
  readln(n);
  Write('Vvedite imja faila: ');
  readln(g);
  assign(f,g);
  rewrite(f);
    for i := 1 to n do
       begin
         write('Nazvanie goroda: ');
         readLn(gor[i].name);
         write('Koli4estvo: ');
         readLn(gor[i].kolvo);
         write(f,gor[i]);
       end;
    close(f);
    reset(f);
    for I := 1 to n do
      begin
        read(f,gor[i]);
        WriteLn(gor[i].name, ' ',gor[i].kolvo);
      end;
      close(f);
      readln;
  end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2010, 13:09

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Delphi 7 Lite - Имена класов
Здравствуйте. У меня проблема в том, что когда я размещаю компонент на форме, то он називается...

Тест программы на Turbo Delphi Lite
Может кто протестировать? По возможности скидывайте условия при которых возникла ошибка (что...

Создание приложения с использование Delphi 10 Lite и InterBase
Всем добрый день! Решил создать небольшое приложение для отображения работ, выполняемых на личной...

Как правильно закрыть программу Delphi 10 lite?
чтобы при повторном открытии не появлялось сообщение:"Процесс не может получить доступ к файлу, так...


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

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

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