VPF::проблема при авто-создании файла для чтения.

atlant

Дата 29.4.2007, 06:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.3.2007
Где: г.Иркутск

Репутация: нет
Всего: нет

Код


Uses Crt;
label bye;
var
f,f1: text; {text file}
s: string;
x: Word;    {Vspomogatelnay peremennay}
obr: string[15];
n: integer; { kol-vo zapisey udovletvoryuchih zaprosu }
fam: string[15]; {familia}
name: string[15]; {name}
tel: string[11];   {# telephone}
m:integer;
begin ClrScr;
writeln('Dobro pogalovaty, viberite deystvie:');
repeat
writeln('1-Dobavity zapisy,');
writeln('2-Poisk,');
writeln('3-Exit.');
readln(m);
case m of
1:begin
     writeln('Add in telephone reference book');
     Assign(f,'C:\phone.txt');
{ $1- }

     Append(f); { snachalo open v rejim add } { *** Было отмечено здесь !!! ***}
     if IOResult <> 0 then
{ Veroytno file phone.txt no HDD C:\}
{ sozdadim ego }
           begin
           Rewrite(f); { open rejim perezapisi }
           if IOResult  <>1 then
              begin
                  goto bye;
              end;
           end;
                    { poluchim danie ot Userя }
  bye:
  write('Familiy ->') ;
  readln(fam);
  write('Name ->');
  readln(name);
  write('Telephone ->') ;
  readln(tel); { i zapihim ih v file }
  writeln(f,fam);
  writeln(f,name);
  writeln(f,tel);
  close(f);
  writeln('Information add.');
  readln;
  end;
2:begin
     writeln('Poisk v telephone spravochnik');
     Assign(f,'C:\phone.txt');
     reset (f); { open file dly chteniyя}
     if IOResult <> 0 then
{ veroytno file C:\phone.txt na HDD no }
           begin
                writeln('file C:\phone.txt nedostupen');
                goto bye;
           end;
     repeat
     write('familiyя ->');
     readln(obr);
     if Length(obr) <> 0 then { user vvil stroku }
        begin
             reset(f); { prosmatrivaem file ot nachala }
             n:=0;
             while not eof(f) do { prosmatrivaem ves file }
                   begin         { chitaem is file }
                   readln(f,fam);
                   readln(f,name);
                   readln(f,tel);
                   if fam = obr then { naidena nujnay familiy }
                      begin
                           writeln(fam,' ',name, ' ',tel);
                           N:=N+1;
                      end;
                   end;
             if n = 0 then
             writeln('svediniy o ' ,obr,' no.');
             end;

      until Length(obr) = 0;
  end;

3: halt;
end;
until m>3;
end.

Написал программу которая по условию должна, записывать и искать записи в файле,
если файла на диске нету, значит она должна его автоматически создать, а она не хотит, выдаёт
ошибка(File not found(фаил не найден)) выскакивает в том месте где помечано жёлтым.
кто знает в чём дело помогите пожалуста.

Это сообщение отредактировал(а) volvo877 - 29.4.2007, 08:48

volvo877

Дата 29.4.2007, 08:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Ты хотел отключить контроль ошибок ПЕРЕД Append? Так вот для этого надо сделать {$i-}, понимаешь, i а не единица... И без пробелов.

А так само собой ошибка - контроль ошибок включен, Append применим только к существующим файлам, все верно...

Это сообщение отредактировал(а) volvo877 - 29.4.2007, 08:49

atlant

Дата 29.4.2007, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 8.3.2007
Где: г.Иркутск

Репутация: нет
Всего: нет

Спасибо бальшое, ты меня выручил.
Этоя моя курсовая работа!!! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »