Форум: "Начинающим";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Андрей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 ©   (2005-08-08 23:01) [6]

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

---

← →
Eraser ©   (2005-08-08 23:22) [7]

Marser ©   (08.08.05 23:01) [6]

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

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

---

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

спасибо всем

---

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

Форум: "Начинающим";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.012 c