VPF::Ошибка создания файла - Форум программистов

SlaUr

Дата 18.12.2009, 15:16 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

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

Код


procedure TForm3.Button1Click(Sender: TObject);
var
    f: TextFile; // файл — база данных
      fname:string;
begin
    fname:='c:\pogoda1.txt';
    AssignFile(f, fname);
    Append(f);
    if IOResult<> 0 then
    Rewrite(f); // если файла нет и нужно его создать или перезаписать.
    writeln(f, edit1.text);
    writeln(f, edit2.text);
    closefile(f);

    form1.StringGrid1.Cells[0,0]:='1';
end;

А кто будет ставить {$I-} {$I+}
Вот что должно быть

Код


{$I-}  Append(f);{$I+}
    if IOResult<> 0 then
{$I-}    Rewrite(f);{$I+}
    if IOResult<> 0 then showmessage('Error');

Ничего не имею против этих якобы устаревших комманд они работают и иногда их использовать лучше.Если например использовать tsringlist то в данном конкретном случае сначала бы пришлось считывать файл (если он есть) потом добавлять строки а потом только записывать.

Это сообщение отредактировал(а) SlaUr - 18.12.2009, 15:25

profesiachuvak

Дата 19.12.2009, 15:07 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

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

Цитата(SlaUr @ 18.12.2009, 15:16

)

А кто будет ставить {$I-} {$I+}

SlaUr, что это значит?, Вы хотите сказать что без этого работать не будет?

--------------------

Закон Мерфи :если есть вероятность того, что какая-нибудь неприятность может случиться, то она обязательно произойдет.

SlaUr

Дата 21.12.2009, 08:18 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

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

В этом коде возникает ошибка и ioresult=0

Код


procedure TForm1.Button1Click(Sender: TObject);

begin
AssignFile(F1,'c:\1.tmp');
try
Append(F1);
except
Showmessage(inttostr(ioresult));
end;
end;

В этом коде ошибки не возникает и ioresult=2

Код


procedure TForm1.Button1Click(Sender: TObject);

begin
AssignFile(F1,'c:\1.tmp');
{$I-}Append(F1){$I+};
Showmessage(inttostr(ioresult));
end;

У neic программа вываливалась по ошибке поэтому никакого файла не создавалось

Это сообщение отредактировал(а) SlaUr - 21.12.2009, 09:05

profesiachuvak

Дата 21.12.2009, 14:51 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

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

SlaUr, Ситуация ясна, вот только эта запись не понятна для меня :

Код


{$I-}Append(F1){$I+};

Как понимать это штуку: {$I-}; ? smile

--------------------

Snowy

Дата 21.12.2009, 15:05 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

А справку посмотреть?
Директива, которая как раз и вырубает вываливание с ошибкой.

profesiachuvak

Дата 21.12.2009, 15:22 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

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

Цитата(Snowy @ 21.12.2009, 15:05

)

Директива, которая как раз и вырубает вываливание с ошибкой.

Да я так и сделал, не успел отписаться.
{$I-} - отключает генерацию исключений.

--------------------

Демо

Дата 21.12.2009, 16:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Я бы не рекомендовал использовать {$I-} без глубокого понимания этого механизма.
Отключение проверки ошибок может повлечь за собой труднонаходимые ошибки и глюки.
Лучше использовать обработку исключений.

--------------------

Snowy

Дата 21.12.2009, 16:16 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Без глубокого понимания можно использовать готовый пример.
Например из справки Delphi (TurboPascal)
В ТрупоПаскале по другому и никак было.
А это наследство покойного...

Данкинг

Дата 21.12.2009, 16:44 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(profesiachuvak @ 21.12.2009, 14:51

)

Как понимать это штуку: {$I-}; ?

Видимо, ты в Паскале ничего не писал? smile

--------------------

There's nothing left but silent epitaphs.

profesiachuvak

Дата 21.12.2009, 16:56 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

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

Цитата(Данкинг @ 21.12.2009, 16:44

)

Видимо, ты в Паскале ничего не писал?

В лет 13 в Pascal 5 а потом Turbo что-то писал, но видимо не сталкивался с обработкой исключений. А почему там невозможно было без {$I-} ???
Мне аж интересно стало.

--------------------

Данкинг

Дата 21.12.2009, 20:32 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(profesiachuvak @ 21.12.2009, 16:56

)

А почему там невозможно было без {$I-} ???

Вообще я смутно помню, что там в ТП было. smile

Но там же обработчика ошибок не было (try...catch), вот и приходилось отключать проверку ошибок.

--------------------

There's nothing left but silent epitaphs.

bems

Дата 24.12.2009, 18:11 (ссылка)

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

Загрузка ...

Эксперт

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

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

Там не было не только обработки исключений, но и самих исключений. А проверка ошибок как раз и делалась через IOResult. И директивы компилятора соответственно там тоже не было.

--------------------

Обижено школьников: 8

Snowy

Дата 24.12.2009, 18:28 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Цитата(bems @ 24.12.2009, 18:11

)

И директивы компилятора соответственно там тоже не было.

Из справки TP7:

Код

{
 Замечания:
Чтобы контролировать ошибки ввода/вывода с помощью функции IOResult, опция
проверки ввода/вывода должен быть выключена ({$I-}). Если происходит ошибка
ввода/вывода, и проверка ввода/вывода выключена, то все последующие операции
ввода/вывода игнорируются, пока не будет сделано обращение к функции
IOResult, при котором очищается внутренний флаг ошибки.
}

Var F : File Of Byte;

Begin
 { Получаем имя файла из командной строки }
 Assign(F, ParamStr(1));
 {$I-}
 Reset(F);
 {$I+}
 If IOResult=0 Then WriteLn('Размер файла: ', FileSize(F), ' байт.'))
               Else WriteLn('Файл не найден.');
End.

bems

Дата 24.12.2009, 18:44 (ссылка)

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

Загрузка ...

Эксперт

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

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

Убедил. Но исключений-то не было smile

--------------------

Обижено школьников: 8

Snowy

Дата 25.12.2009, 12:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Так я про то и говорю - обработчиков исключений не было, поэтому использовались директивы компилятора. smile

Теперь обработчики есть, но старьё с собой до сих пор тянем. smile

Я к тому и клоню, что это всё устарело ещё в прошлом тысячелетии, а у нас 2010 год на носу уже. smile

С наступающим smile

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