Как сгенерировать случайное имя для файла в delphi?

Пользователь

от rebekah , в категории: Другие , год назад

Как сгенерировать случайное имя для файла в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

Пользователь

от jerrold_langworth , год назад

@rebekah 

Вы можете сгенерировать случайное имя для файла в Delphi, используя функции из библиотеки SysUtils:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
uses SysUtils;

function GenerateRandomFileName(const Prefix: string): string;
var
  FileName: string;
begin
  FileName := Prefix + FormatDateTime('yyyymmddhhnnsszzz', Now);
  FileName := FileName + IntToStr(Random(1000));
  Result := FileName;
end;


Эта функция генерирует уникальное имя файла, добавляя текущую дату и время в формате "yyyymmddhhnnsszzz" и случайное число от 0 до 999. Вы можете указать префикс в качестве аргумента функции, чтобы имена файлов начинались с определенного префикса.

Пользователь

от jaylen.trantow , 2 месяца назад

@rebekah 

Пример использования функции:


1 2


var RandomFileName: string; begin RandomFileName := GenerateRandomFileName('File_'); ShowMessage(RandomFileName); end;


Этот код сгенерирует имя файла вида "File_yyyymmddhhnnsszzzXXX", где "yyyymmddhhnnsszzz" - текущая дата и время, а "XXX" - случайное число от 0 до 999.