Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2023, 02:04   #21
mixer12
Пользователь
 
Регистрация: 07.05.2023
Сообщений: 12
По умолчанию

Цитата:
Сообщение от jillitil Посмотреть сообщение
Вы же сами просили проверку четырёх условий:


Ваша "program oshi;" ничего этого не делает.

Набор команд для работы с файлами:Assign, Reset, Rewrite, BlockRead, BlockWrite, Read, Readln, Write, WriteLn, Close, IOResult тянется ещё с древних времён для однозадачных ОС (ДОСа). В многозадачных (Linux, Windows, ...) файл может быть открыт несколькими программами одновременно. И пока вы будете читать, данные могут быть переписаны. Поэтому надо использовать команды работы с файлами с поддержкой прав доступа. Потоки данных TFileStream это поддерживают — "всем запретить запись, пока я читаю".

В вашем случае интенсивной работы нет и хватит обойтись без прав доступа.



Код:
except                                                                                                                                                                
on E:Exception do                                                                                                                                                                                                                                                                                                                    
writeln('файла нет: ' ,E.Message);                                                                                                                                    
 end;                                                                                                                                                                       
end.
Наверное это лишнее, пока пользуйтесь IOResult.
Вот теперь все понял, спасибо! Буду заниматься!
mixer12 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Парни помогите плиз,очень надо zayai Паскаль, Turbo Pascal, PascalABC.NET 2 13.01.2009 20:39