Delphi. Как создать уникальное имя файла, используя GUID и сохранив часть старого имени?

Рассмотрим простой пример создания уникального имени с сохранением части старого имени. Алгоритм такой

-Разбиваем строку на массив с разделителем ‘.’

-Отделяем расширение, если оно есть (последний элемент массива)

-Собираем вместе все элементы, кроме расширения

-Добавляем к нему GUID для уникальности

-Добавляем расширение

Задача стала встречаться часто, решил вынести её в отдельную функцию.

Последний вариант, более совершенный

 

 

 

 

 

Предыдущий вариант, менее совершенный

Тестим

66

This entry was posted in Delphi. Bookmark the permalink.

Leave a Reply