Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
ВнизРаботаю с фалами Найти похожие ветки
← →
$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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c