программа, которая должна находить в данной директории *.xml файлы и переименовывать в *.xml.dt. (Delphi)

[nice.name]

Доброго времени суток. Вообщем есть программа, которая должна находить в данной директории *.xml файлы и переименовывать в *.xml.dt. Но она не переименовывает. Что сделал не так?

код программы:

uses
  SysUtils;

Var s:string;

procedure DoIt(Dir: string);
var
  SR: TSearchRec;
begin
  SetCurrentDir(Dir);
  if FindFirst(Dir + '*.xml', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Name <> '.') and (SR.Name <> '..') then
      begin
        RenameFile(SR.Name, SR.Name + '.dt');
      end;
    until FindNext(SR) <> 0;
  FindClose(SR);
  end;
end;

begin
  s:=GetCurrentDir;
  DoIt(s);
end.

___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

во-первых, для работы вашей процедуры совершенно не нужно делать каталог текущим. строчка с SetCureentDir - лишняя (избыточная)!

а во-вторых, функция GetCurrentDir возвращает путь БЕЗ слеша.
поэтому нужно вызывать вашу функцию так:

DoIt( GetCurrentDir + '\');

или, ещё лучше, в самой процедуре написать так:

procedure DoIt(Dir: string);
var
  SR: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);
  if FindFirst(Dir + '*.xml', faAnyFile, SR) = 0 then
....

p.s. код не проверял. пишу прямо в браузере!

p.p.s. отладку ещё никто не отменял - пройдитесь по вашей процедуре в отладке, посмотрите, что и как..

[nice.name]

сделал бэкслэш, все работает! =)) спасибо!