Сортировка файлов

[russian-stalker]

У меня есть множество файлов 1.txt, 2.txt, 3.txt. и т.д. Некоторые удаляются. Как мне сделать на событие уничтожении формы, переименование их с большего к меньшему. Т.Е. уничтожился 4.txt, значит 5 переименовывается в 4, 6 в 5 и так далее

[Квэнди]

только findfirst findnext создавать вектор названий файлов, и уже его сортировать, переименовывая файлы.

[russian-stalker]

А можете кодом подмастить?

[eoln]

procedure TForm1.Button11Click(Sender: TObject);
var 
  mas: array of word;
  i, j, k: integer;
  SearchRec: TSearchRec;
  s: word;
begin
k := 1;
if FindFirst(getcurrentdir+'\*.txt', faAnyFile, SearchRec) = 0 then
repeat
  inc(k);
  if (SearchRec.Attr and faDirectory) <> faDirectory then
  SetLength(mas, k);//увеличение массива
  mas[k-1] := strtoint(copy(SearchRec.Name, 1, length(SearchRec.Name)-4));//сохраняем только имя (легче сортировать)
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
if length(mas) = 0 then exit;//если файлов нет - уходим
mas[0] := 0;//якобы существует файл 0.txt 
for i := 0 to k-1 do //сортировка
for j := i + 1 to k-1 do
if mas[j] < mas[i] then begin
   s := mas[i];
   mas[i] := mas[j];
   mas[j] := s
end;
for i:=0 to k-2 do
if mas[i+1] - mas [i] > 1 then begin //если есть разрыв последовательности
   RenameFile(getcurrentdir+'\'+inttostr(mas[i+1])+'.txt',
              getcurrentdir+'\'+inttostr(mas[i]+1)+'.txt');
   mas[i+1] := mas[i]+1;//устраняем разрыв
end;
end;

[russian-stalker]

Спасибо попробуем