Foros Club Delphi - Ver Mensaje Individual

[duilioisola] · #5 04-10-2011

Prueba agregar esto, para saber cual es el error.
Si no lo puede renombrar te dará un código de error.

Código Delphi [-]var
  CodigoError : integer;
...
txt1 := SR.Name;
Insert(texto,SR.Name,21);
txt2 := SR.Name;
if (txt1 = txt2) then
   ShowMessage('txt1 y txt2 son iguales!');
if RenameFile(txt1,txt2) then
   ShowMessage('Se renombro correctamente ' + txt1 + ' a ' + txt2)
else
begin
   CodigoError := GetLastError;
   ShowMessage('Error ' + IntToStr(CodigoError) + ' ' + SysErrorMessage(CodigoError) + ' renombrando 'txt1 + ' a ' + txt2)
end;