نمی تونم اسم فایل رو عوض کنم [بایگانی]

View Full Version : نمی تونم اسم فایل رو عوض کنم

Developer Programmer

جمعه 15 خرداد 1383, 20:03 عصر

این قسمتی از کد برنامه من است که می خواهد نام فایل رو تغییر بدهد
<span dir=ltr>

var
SrchRec:TSearchRec;
Path,Ext,NewName:String;
Jndex,Index:Integer;
myFile:File;

AssignFile(myFile,SrchRec.Name);
{$I-}
Rename(myFile,NewName);
{$I+}
IF IOResult<>0 then ShowMessage('Error on changing name of file ' + SrchRec.Name + ' to ' + NewName);

</span><span dir=ltr>
اما هیچوقت موفق نشد !!‌چرا؟</span>

Panje Tala

شنبه 16 خرداد 1383, 09:08 صبح

با سلام
نمی دونم چرا متغیرهای برنامه را مقدار دهی نکردی به هر حال باید نام فایل اولیه و نام فایل جدید مشخص باشد.
من کد شما را با یک تغییرات جهت تست امتحان کردم و کاملا درست عمل کرد:

procedure TForm1.Button1Click(Sender: TObject);
var
SrchRec:TSearchRec;
Path,Ext,NewName:String;
Jndex,Index:Integer;
myFile:File;
begin
newname:='d:\test2.txt';
AssignFile(myFile,'d:\test1.txt');
{$I-}
Rename(myFile,NewName);
{$I+}
IF IOResult<>0 then ShowMessage('Error on changing name of file ' );
end;

Developer Programmer

شنبه 16 خرداد 1383, 15:25 عصر

با سلام
عرض شود که این قسمتی از کد برنامه بود که من گذاشتم
کار برنامه این است که اسم فایل رو به خاطر یه سری مساپل عوض کند
با دستورات FindFirst و FindNext بدنبال فایل میگردم بعد از این که یافتم با SrchRec.Name آن را به Assign پاس میدم و بعد اسمش رو عوض میکنم
که البته IOResult همواره مخالف صفر است یعنی خطایی رخ داده :oops:

سار

شنبه 16 خرداد 1383, 17:30 عصر

با کدی که IOResualt برمیگردنه میتونی مشکل رو پیدا کنی.
کدش رو تو Help دلفی سرچ کن حتما پیدا میکنی.

vcldeveloper

یک شنبه 17 خرداد 1383, 01:45 صبح

چرا تابع RenameFile رو امتحان نمی کنید؟

RenameFile(SourceFile,DesFile);

Developer Programmer

یک شنبه 17 خرداد 1383, 12:18 عصر

:roll: از همه دوستان ممنونم

vcldeveloper

یک شنبه 17 خرداد 1383, 20:03 عصر

آقا RenameFile هم کار نکرد!!!!!؟؟؟

Developer Programmer

دوشنبه 18 خرداد 1383, 16:28 عصر

دوستان من تمام کدم رو بعلاوه فایل اجراییش آپلود میکنم
لطفا نگاه کنید و ایرادهای من رو گوشزد کنید
ممنونم :oops