![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
Создание временного файлаDelphi , Файловая система , ФайлыСоздание временного файла
Оформил: DeeCo function GetTempFile(const Extension: string): string; var Buffer: array[0..MAX_PATH] of Char; aFile: string; begin repeat GetTempPath(SizeOf(Buffer) - 1, Buffer); GetTempFileName(Buffer, '~', 0, Buffer); Result := ChangeFileExt(Buffer, Extension); until not FileExists(Result); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetTempFile('.~tp')); // The temp. file looks like C:\WINDOWS\TEMP\~61D5.TMP end; { Note: The GetTempFile function just returns a unique filename but doesn't create the file. } { Bemerkung: Die GetTempFile Funktion liefert nur den Namen der temp. Datei aber erstellt sie nicht. } Программная функция Вот разбивка на шаги, что делает каждый часть кода:
Процедура Как отмечено в комментариях кода, функция Вот альтернативное решение, использующее встроенный класс
Это код достигает того же результата в более компактной форме, используя Создается функция GetTempFile, которая возвращает уникальное имя файла временной папки Windows с указанным расширением, если файл с таким именем уже существует, то функция будет повторять процесс до тех пор, пока не будет найдено свободное имя. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |