Вниз
Скачать: CL | DM;

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

 
FIL-23 ©   (2007-01-19 13:52) [0]

народ как правельно создавать файлы, пробовал так:
filecreate(extractfilepath(application.ExeName)+"spisok.txt")
но бестолку он его создает , и пока не выключишь программу к нему нету доступа и на диск он не запишится, а после закрытия программы все становится нормально. В чем дело?


 
Elen ©   (2007-01-19 13:59) [1]


> народ как правельно создавать файлы

Ну мона через API CreateFile, или AssignFile, Rewrite (Reset), Read, Write - стандарт...


 
Vlad Oshin ©   (2007-01-19 14:00) [2]

Кэш?
закрывать файл пробовали?


 
FIL-23 ©   (2007-01-19 14:12) [3]


> закрывать файл пробовали?

а как это?... всмысле програмно ?


 
Vlad Oshin ©   (2007-01-19 14:20) [4]

ну да
открыли-записали-закрыли
иначе система сама может решить когда ей писать, может т.е. ждать определенного кол-ва инф-ции, чтоб не гоняться за каждым байтом
Еще таким способом вы освобождаете файл на доступ др. приложениям, ибо по умолчание флаг доступа в D (filemode) не позволяет этого делать. Но его можно менять.
Кажется так, см. help, словом.


 
FIL-23 ©   (2007-01-19 14:25) [5]

но какя же команда для закрытия файла? ... у меня уже сил нету искать :(


 
Комбинатор   (2007-01-19 14:27) [6]

fileclose


 
FIL-23 ©   (2007-01-19 14:33) [7]

мужики УРА!! .... я нашел... надо было сделать так :)  :
var
  FileHandle: Integer;
begin
FileHandle:=filecreate(extractfilepath(application.ExeName)+"spisok.txt");
fileclose(FileHandle);
end;


УРА, ТОВАРИЩИ!  :)


 
FIL-23 ©   (2007-01-19 14:35) [8]

ДА, и спасибо огромное что поддержали.



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
15-1168464147
GanibalLector
2007-01-11 00:22
2007.02.04
Порты в дистанц. управлении рабочим столом(mstsc.exe)


2-1169158460
AlexeyT
2007-01-19 01:14
2007.02.04
Печать TImage/TBitmap?


15-1168823033
Германн
2007-01-15 04:03
2007.02.04
А с наушниками совсем "другая жизнь"!


1-1165585804
Феникс
2006-12-08 16:50
2007.02.04
Экспорт в Excel - (не зарегистрирован класс LeftMargin)


8-1148391631
diman_1978
2006-05-23 17:40
2007.02.04
увеличение размера картинки через TSampleGrabber




   Наверх