При компиляции выдается ошибка на Reneme (F,'NewName')
Подскажите, что сделать.
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Procedure ScanDir(Dir:string);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.ScanDir(Dir: string);
var SearchRec:TSearchRec; F:File;
begin
if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
repeat
if (SearchRec.name='.') or (SearchRec.name='..') then continue;
if (SearchRec.Attr and faDirectory)<>0 then
ScanDir(Dir+SearchRec.name) //we found Directory: "Dir+SearchRec.name"
else
AssignFile(F,SearchRec.name);
Reneme (F,'NewName') // Ошибка
until FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;
end.
|
 |