Форум программистов, компьютерный форум, киберфорум
Наши страницы
Popryduhin_
Войти
Регистрация
Восстановить пароль
Оценить эту запись

Автоматическое увеличение индекса при работе с именем файла.

Запись от Popryduhin_ размещена 06.02.2019 в 22:59

Статья: 135.3
Автоматическое увеличение индекса в имени файла при работе с именем файла.



Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function IfThen(const ACondition: Boolean; const ATrueValue, AFalseValue: string): string;
begin
  if ACondition then
    Result := ATrueValue
  else
    Result := AFalseValue;
end;
 
 
var
   index: integer;
   ext: string;
   new_name: string;
 
begin
   new_name:= 'Вася';
   ext:= '.txt';
 
   index := -1;
   repeat 
      inc(index);
   until RenameFile(OldName, format('%s(%s)%s', [new_name, IfThen((index > 0), index.toString, ''), ext]));
...
Вася.txt
Вася(1).txt
Вася(2).txt

Более бесполезней статьи я не видел))
Размещено в Delphi
Просмотров 86 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru