Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

Работаю с фалами   Найти похожие ветки 

 
$tranger ©   (2004-02-24 20:07) [0]

Здравствуйте, господа. Проблема простая, но я что-то не припомню вариантов решения: надо проверить существует ли файл, если да, то прочитать информацию, а если нет - создать его. Спасибо


 
Тимохов ©   (2004-02-24 20:08) [1]

часть ответа
проверять наличие файла можно fileexists


 
Anatoly Podgoretsky ©   (2004-02-24 20:10) [2]

Код, сестра, код.


 
Тимохов ©   (2004-02-24 20:12) [3]

Тут вроде все братья...


 
default ©   (2004-02-24 20:14) [4]

чем-нибудь попытаться открыть его и проверить на ошибку


 
Defunct ©   (2004-02-24 21:14) [5]

Var Stream : TFileStream;
Mode : Word;
Begin
If FileExists(FileName) Then Mode := fmOpenRead
Else Mode := fmCreate;

Stream := TFileStream.Create(FileName, Mode);
...


 
Defunct ©   (2004-02-24 21:18) [6]

Еще один вариант:
Var F:File;

AssignFile(F,FileName);
{$I-}
Reset(F,1);
If IOResult<>0 Then ReWrite(F,1);
...


 
I am Fay   (2004-02-25 02:53) [7]

Windows.CreateFile(...)


 
Alibaba ©   (2004-02-25 03:50) [8]

FileExists


 
I am Fay   (2004-02-25 05:15) [9]

var
h : THandle;
begin
h := CreateFile("c:\qwe.qwe", GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_ALWAYS, 0, 0);
if h = Cardinal(-1) then
Application.MessageBox("Фуск!", "Еррор!", MB_OK or MB_ICONERROR)
else
CloseHandle(h);
end;


 
Kair ©   (2004-02-25 10:21) [10]

AssignFile();
if FileExists() then Reset() else Rewrite();
Readln();


 
Fay ©   (2004-02-25 10:57) [11]

2Kair и др.
Блин! Нафиг такие извраты!? Чем вам не подходит [9]?



Страницы: 1 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
14-12510
Knight
2004-02-11 21:35
2004.03.05
СИСТЕМНЫЕ ЯЗЫКИ МОЗГА


3-12234
Sergey Merkuriev
2004-02-09 17:53
2004.03.05
MS SQL 2000 книги или доки по русски


7-12567
Arsenij
2003-12-17 16:26
2004.03.05
Обмен данными через COM порт


3-12276
Unknown
2004-02-08 12:18
2004.03.05
База данных без BDE?


3-12255
Санек
2004-02-09 13:10
2004.03.05
Доступные MS SQL сервера в сети