если файла нет создать его?

← →
Андрей235 (2005-08-08 19:18) [0]

попрошу кусочек кода (хотя бы создание)

← →
Kolan © (2005-08-08 19:26) [1]

> если файла нет создать его?

var F: TextFile begin //Проверяем что файла нет. if not FileExists(FileName) then begin //Создаем. AssignFile(F, FileName); Rewrite(F); CloseFile(F); end;

← →
Fay © (2005-08-08 19:34) [2]

var h : DWORD; begin h := CreateFile(PChar(Edit1.Text), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_ALWAYS, 0, 0); if h = INVALID_HANDLE_VALUE then RaiseLastOsError; try ... Могучий код ... finally CloseHandle(h); end; end;

← →
Kolan © (2005-08-08 19:34) [3]

Распишу подробнее.
F - это файловая переменная.

AssignFile(F, FileName); НАзначаем файловой переменной конкретный файл с именем FileName
Rewrite(F); Создаем файл. (Если файл с таким именен уже есть то он сотрется).
CloseFile(F); Просто закрываем файл.

PS Создать файл есть несколько способов. Это способ еще из старого доброго Pascal

← →
Fay © (2005-08-08 20:09) [4]

2 Kolan © (08.08.05 19:34) [3]
>> Это способ еще из старого доброго Pascal
Прямо как "стакан старого доброго молока"

← →
Eraser © (2005-08-08 22:53) [5]

Андрей235 (08.08.05 19:18)

см. TFileStream - имхо самое удобное решение.

var fs: TFileStream; ... fs := TFileStream.Create("1.dat", fmCreate);

Удалено модератором

Marser © (08.08.05 23:01) [6]

Это самый простой в использовании вариант опять же имхо. Кстати работу с файлами в win32 начинал именно с TFileStream, вообще не имея понятия о CreateFile.

Насчёт [3], стандартные ф-ии ввода вывода знать конечно надо...

← →
Андрей235 (2005-08-09 11:20) [8]

спасибо всем

если файла нет создать его? Найти похожие ветки