|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.02.2018, 00:00 | #1 |
Регистрация: 28.10.2017
Сообщений: 6
|
Файлы паскаль. i\o error 6.
Есть типизированные файл, кторый содержит записи типа (citi:string;fam:string;year:intege r.Нужно узнать размер файла.
reset(TipFile); writeln(filesize(TipFile); Написал, но при запуске программы возникает ошибка i\o error 6. Если знаете можете помочь написать процедуру для удаления из типизированного файла всех компонентов с заданным годом рождения? Вот сам код program DolgalevProject; {$APPTYPE CONSOLE} uses SysUtils, DolgalevUnit in 'DolgalevUnit.pas'; {----------------------------------------------------------------------------------------------} type st=string[15]; Turist=record city:st; fam:st; year:integer; end; tFile=file of Turist; mass=array [1..10] of string; {----------------------------------------------------------------------------------------------} var TxtFile:textfile; TipFile:tFile; n,i:integer; NameTipFile:string; NameTxtFile:string; a:Turist; Massiv:mass; year_from_del:integer; {----------------------------------------------------------------------------------------------} procedure VvodTipFile_fromTxtFile ( var TxtFile:textfile; var TipFile:tFile; var n:integer); var a:Turist; begin Reset(TxtFile); rewrite(TipFile); n:=0; while not eof(TxtFile) do begin readln(TxtFile,a.city); readln(TxtFile,a.fam); readln(TxtFile,a.year); write(TipFile,a); n:=n+1; end; closefile(TxtFile); closefile(TipFile); end; {----------------------------------------------------------------------------------------------} procedure formirovanie_massiva( var TipFile:tFile; var n:integer; var Massiv:mass); var i,j,k,sch:integer; buf:Turist; begin k:=0; i:=1; reset(TipFile); while (k<=10) and (not eof(TipFile)) do begin read(TipFile,buf); for j:=1 to 10 do begin if Massiv[j]=buf.city then sch:=1; end; if sch<>1 then begin Massiv[i]:=buf.city; k:=k+1; i:=i+1; end else sch:=0; end; closefile(TipFile); end; {----------------------------------------------------------------------------------------------} procedure delet_from_TipFile( var Tipfile:tfile; year_for_del:integer); var buf:turist; begin reset(TipFile); while not eof(TipFile) do begin read(TipFile,buf); if year_for_del=buf.year then begin end; end; end; {----------------------------------------------------------------------------------------------} begin readln(NameTxtFile); assign(TxtFile,NameTxtFile); readln(NameTipFile); assign(TipFile,NameTipFile); VvodTipFile_fromTxtFile(TxtFile,Tip File,n); {----------------------------------------------------------------------------------------------} reset(TipFile); while not eof(TipFile) do begin read(TipFile,a); writeln(a.city); writeln(a.fam); writeln(a.year); end; closefile(TipFile); {----------------------------------------------------------------------------------------------} reset(TipFile); writeln(filesize(TipFile); closefile(TipFile); formirovanie_massiva(TipFile,n,Mass iv); for i:=1 to 10 do writeln(Massiv[i]); readln; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Файлы.Паскаль | Екатерина) | Помощь студентам | 2 | 27.10.2010 19:26 |
Типизированные файлы. Runtime Error. | TwiX | Помощь студентам | 2 | 14.12.2009 04:17 |
Паскаль runtime error | Лида200915 | Помощь студентам | 11 | 18.09.2009 22:00 |