Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Андрей235 © (2005-08-08 19:18:00)
попрошу кусочек кода (хотя бы создание)

Андрей235 (2005-08-09 11:20:00) [1]
спасибо всем

Eraser (2005-08-08 23:22:00) [2]
Marser © (08.08.05 23:01) [6]

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

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

Marser (2005-08-08 23:01:00) [3]
Удалено модератором

Eraser (2005-08-08 22:53:00) [4]
Андрей235 (08.08.05 19:18)

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

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

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

Fay (2005-08-08 19:34:00) [6]
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:00) [7]
Распишу подробнее.
F - это файловая переменная.

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

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

Kolan (2005-08-08 19:26:00) [8]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »