Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > файлы

Автор: Гость_olja 17.11.2004, 19:41

ПОМОГИТЕ!!! НЕ МОГУ НИЧЕГО ПОНЯТЬ, КАК РЕШИТЬ ДОБАВИТЬ В ФАЙЛ ЗАПИСИ, ЗАПИСЬ, КОТОРУЮ ДОБАВЛЯЮ ВЫВОДИТЬСЯ, А ОСТАЛЬНОЕ КАКЯ-ТО ЕРУНДА.
Procedure dobavl(var f:stud);
var i,n,q,j:integer; a:spisoktel;b:mas;
begin reset(f);
writeln(' posle chego dobavit?'); readln(i);
j:=i;
seek(f,j+1);
while not eof (f) do begin
read(f,b[i]);
i:=i+1;
end;
seek(f,j+1);
write('familija studenta '); readln(a.famil);
write('imja studenta '); readln(a.imja);
write('otchestvo studenta '); readln(a.otch);
write('adres studenta: gorod '); readln(a.adres.gorod);
write('dom '); readln(a.adres.dom);
write('nomer telefona '); readln(a.adres.nomertel);
write(f,a);
for q:=j to i do
write(f,b[q]);
close(f);
end;
smile

Автор: Dimich 18.11.2004, 17:09

На первый взгляд вроде как верно, вот только

Цитата

for q:=j to i do
write(f,b[q]);
close(f);

Кажется лишнюю запись берешь с начала.

А вообще решение сложное у тебя - надо попробовать скомпилить пример, попробовать

Автор: remax 18.11.2004, 17:21

1) А какой размер массива b:mas?

Т.е. Вы используете статический массив, тип которого определен примерно так
mas:array[1..100] of stud;

Если число записей в файле больше размера в массиве (в данном случае > 100), то проблемы гарантированы (особенно, если отключена проверка выхода за границы массива)

2) А кто сказал, что тип stud эквивалентен типуspisoktel? smile

А посмотрите, что Вы делаете - записываете в типизированый файл (тип stud) переменную типа spisoktel!!!! А еще, убедитесь, что тип элементов массива совпадает с типом файлов!! smile

Автор: MacTep 18.11.2004, 18:17

Я тут кое-что похожее наметал. Посмотрите, может поможет!

Код


uses crt;

type stud=record
       famil:string;
       imja:string;
       otch:string;
       gorod:string;
       dom:string;
       nomertel:string;
     end;

var f:file of stud;

{добавление записей}
procedure Add(fn:string);
var i:integer;
    rec:stud;
    size:integer;
begin
  assign(f,fn);
  reset(f);
  size:=FileSize(f);
  if size<>0 then seek(f,size);
  write('Фамилия студента: '); readln(rec.famil);
  write('Имя студента: '); readln(rec.imja);
  write('Отчество студента: '); readln(rec.otch);
  write('Адрес студента: город: '); readln(rec.gorod);
  write('Дом: '); readln(rec.dom);
  write('Номер телефона: '); readln(rec.nomertel);
  write(f,rec);
  close(f);
end;

{создание файла}
procedure Create(fn:string);
begin
  assign(f,fn);
  rewrite(f);
  close(f);
  Writeln('Файл '+fn+' успешно создан!');
end;

{просмотр записей}
procedure View(fn:string);
var rec:stud;
    i:integer;
begin
  writeln;
  writeln;
  assign(f,fn);
  reset(f);
  i:=0;
  while not eof(f) do
    begin
      i:=i+1;
      read(f,rec);
      writeln('Запись №',i);
      write('Фамилия студента: '); writeln(rec.famil);
      write('Имя студента: '); writeln(rec.imja);
      write('Отчество студента: '); writeln(rec.otch);
      write('Адрес студента: город: '); writeln(rec.gorod);
      write('Дом: '); writeln(rec.dom);
      write('Номер телефона: '); writeln(rec.nomertel);
      writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    end;
  close(f);
end;

begin
  clrscr;
  Create('data.pas');
  Add('data.pas');
  Add('data.pas');
  View('data.pas');
  readkey;
end.

Автор: Underdark 19.11.2004, 13:31

Procedure dobavl(var f:stud);
var i,n,q,j:integer; a:spisoktel;b:mas;
begin reset(f);
writeln(' posle chego dobavit?'); readln(i);
j:=i;
seek(f,j+1);
while not eof (f) do begin
read(f,b[i]);
i:=i+1;
end;
seek(f,j+1);
write('familija studenta '); readln(a.famil);
write('imja studenta '); readln(a.imja);
write('otchestvo studenta '); readln(a.otch);
write('adres studenta: gorod '); readln(a.adres.gorod);
write('dom '); readln(a.adres.dom);
write('nomer telefona '); readln(a.adres.nomertel);
write(f,a);
for q:=j to i do
write(f,b[q]);
close(f);
end;

_____ - не забывай, что первая запись в файле seek(f,0)!!!
_____ - у тебя выводится на две записи больше, т.к. последняя i - была, когда eof (f)=true, и начинать цикл надо со значения j+1;
И действительно...

Цитата

А кто сказал, что тип stud эквивалентен типуspisoktel?