مشکل با OpenDialog

[hadiaj168]

سلام
وقتی یک فایل رو با OpenDialog باز میکنم و حجمش رو بدست میارم بعد یک فایل دیگه با یک اسم دیگه رو می خوام باز کنم پیغام file not fond میده.:گیج::متعجب:


f2,tty:file of byte;
doubsize: double ;
s:string;
begin
if OpenDialog1.Execute then
begin
AssignFile(tty,OpenDialog1.FileName);
Reset(tty);
try
doubsize := FileSize(tty);
finally
CloseFile(tty);
end;
end;
AssignFile(f2,'test');
erase(f2);

[Felony]

اون تیکه ی آخر کدتون برای چی هست ؟


var
f2,tty:file of byte;
doubsize: double ;
s:string;
begin
if OpenDialog1.Execute then begin
AssignFile(tty,OpenDialog1.FileName);
try
Reset(tty);
DoubSize := FileSize(tty);
finally
CloseFile(tty);
end;
end;
ShowMessage(FloatToStr(DoubSize));
end;

[hadiaj168]

یافتم ، چون مسیر پوشه فعلی تغییر میکنه.
برای حل مشکل اول مسیر جاری رو تو متغیر ذخیره میکنیم بعد ازش استفاده میکنیم.

اون تیکه ی آخر کدتون برای چی هست ؟
خب مشکل همین بود من یه فایل رو برای یک کاری انتخاب میکردم ولی حالا تو جای دیگه میخواستم یه فایل دیگه رو تو پوشه اصلی حذف کنم ولی نمیشد.