Delphi - Renomear Arquivos

[Hacke123456789 0]

Preciso de uma ajuda no delphi. Tenho 1 pasta com vários arquivos ini que tem de ser renomeados assim:

 

arquivo0.ini

arquivo1.ini

arquivo2.ini

arquivo3.ini

arquivo4.ini

arquivo5.ini

arquivo6.ini

... (continua)

 

Como faço?

 

Tenho esta função, mas cheia de erros. A variavel "Dir" está declarada para uso em toda a aplicação.

 

var

SearchRec : TSearchRec;

i : integer;

sNome : string;

x: integer;

begin

for x := 0 to Pred(combobox1.Items.Count) do

begin

i := FindFirst(Dir + '\arquivo*',0,SearchRec);

while i = 0 do

begin

Sleep(1000);

RenameFile(Dir+'/'+SearchRec.Name, Dir+'/arquivo'+(IntToStr(x))+'.ini');

i := FindNext(searchRec);

end;

[Phil God 0]

Tente listar os arquivos em uma lista box, depois que listar coloque um timer que pega o primeiro item(que seria o arquivo0.ini) e o renomeia e o exclui da lista, pegando o proximo e assim vai até n tiver mais itens para serem renomeados.

[Inoxybel 51]

Marque um breakpoint no início da função (Clique na coluna da linha que deseja ou clique na linha que deseja e aperte F9, mas lembre-se que a linha deve ter uma bolinha na coluna para ter um breakpoint válido), compile o projeto e faça a função ser executada (se ela for chamada em um button, clique nele), automaticamente voltará para a 'source', daí você pode ir apertando F8 e checar os valores das variáveis colocando o mouse em cima delas.

 

Assim você identifica os erros.

 

Exemplos em imagens:

 

 

 

 

[Hacke123456789 0]

Tenho outra função, mas tem o mesmo problema da anterior, renomeia assim:

 

arquivo0.ini

arquivo1.ini

arquivo3.ini

arquivo4.ini

...

 

Ou seja fica faltando o 2. E se executar dnv fica faltando outro numero(por exemplo o 9).

 

var

I : Integer;

NomeOld, NomeNew: string;

begin

for I := 0 to Combobox1.Items.Count -1 do

begin

NomeOld := dir+'\'+Combobox1.Items;//Ler nome Antigo

NomeNew := dir+'\arquivo'+FormatFloat('', I+0)+'.ini';//Monta o nome novo

RenameFile(NomeOld, NomeNew);

end;

 

Ajudem-me porque já não sei o que fazer para resolver esse erro.

[Inoxybel 51]

Se fizer o que eu falei você descobre onde está o erro.

[Hacke123456789 0]

Já fiz e nao aparece nenhum erro nas variaveis

[Inoxybel 51]

É um loop, em algum momento alguma variável vai receber algum valor errado.

 

Se tudo estivesse com valor certo a função que você copiou funcionaria...