Работаю с фалами

← →
$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;

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

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

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