|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Вообще блокнот это в некотором смысле база данных. Почему-бы не хранить данные в локальной БД, например в формате акцеса. Будет вам тогда и сохранность данных и удобство поиска в одном флаконе.
ПС: Был неправ, невнимательно прочитал сообщение. Я понял что вам надо - вам нужна функция возвращающая уникальное имя файла. Например можно так: Код:
function UniqualName: String; Var GUID: TGuid; begin CreateGUID(GUID); Result := GUIDToString(GUID); end; procedure TForm1.Button1Click(Sender: TObject); begin TFileStream.Create('c:\' + UniqualName + '.tmp', fmCreate); end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 19.07.2013 в 20:09. |
#17
|
||||
|
||||
Как создать временный файл имея путь к папке Temp через WinApi
Код:
function GetTempDir:string; var buf:string; len:UINT; begin SetLength(buf, MAX_PATH+1); len:=GetTempPath(MAX_PATH, PChar(buf)); SetLength(buf,len); GetTempDir:=buf end; |