[Страдалецъ]

Вообще блокнот это в некотором смысле база данных. Почему-бы не хранить данные в локальной БД, например в формате акцеса. Будет вам тогда и сохранность данных и удобство поиска в одном флаконе.

ПС: Был неправ, невнимательно прочитал сообщение. Я понял что вам надо - вам нужна функция возвращающая уникальное имя файла. Например можно так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;

[AlexandrV]

Как создать временный файл имея путь к папке Temp через WinApi

Код:

1 2 3 4 5 6 7 8 9 10

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;

Надо функцию которая не только будет создавать временный файл но и возвращать его имя.