assignfile(dbf,dirka+NameDB+'\header.ldh'); //Создаём файл Заголовка базы
rewrite(dbf);
dates:=PANsiChar(DateToStr(Date));
times:=PANsiChar(TimeToStr(Time));
write(dbf,FirstSTR);
write(dbf,Pravo);
write(dbf,Dates);
write(dbf,Times);
write(dbf,SCDBname);
write(dbf,SCDBvers);
write(dbf,Crypt);
write(dbf,comment);
closefile(dbf);
Добавление записи к файлу
Скажите есть ли способ добавления записи к файлу с типом PAnsiChar без
создания копии файла и без буферизации всего файла в памяти.
И ещё вопрос... создаю файл таким образом....
Проблема в том что дата и время неправильно отображаются при открытии...
есть ли способ это исправить?
Зараннее спасибо
создания копии файла и без буферизации всего файла в памяти.
И ещё вопрос... создаю файл таким образом....
Код:
Проблема в том что дата и время неправильно отображаются при открытии...
есть ли способ это исправить?
Зараннее спасибо
На первый вопрос уже нашёл ответ, если кому надо то вот:
Код:
assignfile(dbf,dirka+NameDB+'\header.ldh');
reset(dbf);
seek(dbf,filesize(dbf));
write(dbf,tableName);//Дописываем файл
closefile(dbf);
reset(dbf);
seek(dbf,filesize(dbf));
write(dbf,tableName);//Дописываем файл
closefile(dbf);
Цитата: PAVEL BASIC
На первый вопрос уже нашёл ответ, если кому надо то вот:
Код:
assignfile(dbf,dirka+NameDB+'\header.ldh');
reset(dbf);
seek(dbf,filesize(dbf));
write(dbf,tableName);//Дописываем файл
closefile(dbf);
reset(dbf);
seek(dbf,filesize(dbf));
write(dbf,tableName);//Дописываем файл
closefile(dbf);
ну если уже на то пошло то в дефях еще вроде бы можно воспользоваться старой паскальской append вместо reset........
а проблемы №2 не вижу....закинул в делфю скампилил - все работает как надо....
функция append может применятся только, для файлов типа textfile