يه تکه از برنامه داخل حلقه تکرار افتاده...
يه جا از برنامه جلوي يه استثنا رو گرفتم و دستور بعد except رو يه پيغام گذاشتم حالا وقتي اين استثن رخ ميده برنامه با اون پيغام داخل حلقه ميفته يعني هر چقدر OK رو هم بزنم باز هم پيغام ظاهر ميشه.بنظر شما چه کدي هست که فقط پيغام يکدفعه نشون داده بشه و از حلقه بياد بيرون؟؟
اينم کد:
کد:
procedure TfrmMain.FileListMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
f:file of byte;
size: real;
S,D:string;
begin
if FileList.FileName<>'' then
begin
try
AssignFile(f, FileList.FileName);
Reset(f);
size := FileSize(f)/1000;
S := 'Size : ' + FloatToStr(size)+' KBytes';
D:='Date Modified : '+DateTimeToStr(FileDateToDateTime(FileAge(FileList.FileName)));
FileList.Hint:='Name : '+ExtractFilename(FileList.FileName)+Chr(10)+Chr(13)+S+Chr(10)+Chr(13)+D;
CloseFile(f);
except
Application.MessageBox('Some file(s) are in use,cannot access them!','Not accessible!',MB_ICONSTOP+MB_OK);
end;
end;
end;
