mbshareat
سه شنبه 02 آذر 1389, 18:52 عصر
با سلام و درود
من یه برنامه دارم که توی اون از یه کمپوننت نمایش شاخه و از یک کمپوننت نمایش فایل استفاده می کنم و در قسمتی از اون فایلهای شاخه های پایینتر رو می خونم.
ولی هنگام خوندن فایلها با پیغام خطا مواجه می شم.این کد خواندن فایلهاست :
Procedure TForm1.ReadFiles();
Var
I,J:Integer;
F: file of Byte;
ButesNo: Longint;
Buf: Array [1..65000] Of Char;
FileName,S:String;
Begin
PCNo:=0;
PCRefNo:=0;
DirList.Directory:=ExtractFileDir(Application.ExeN ame);
For I:=DirList.ItemIndex+1 to DirList.Count-1 do
Begin
FileList.Directory:=DirList.Directory+'\'+DirList. Items[i];
FileList.Refresh;
For J:=0 to FileList.Count-1 do
Begin
FileName:=FileList.Directory+'\'+FileList.Items[J];
AssignFile(F,FileName);
Reset(F);
Seek(F,0);
BlockRead(F,Buf,ButesNo);
S:=Buf;
GetFilePCs(S,FileName);
End;
End;
End;
تو خط BlockRead ایراد می گیره!
این هم خطا:
من یه برنامه دارم که توی اون از یه کمپوننت نمایش شاخه و از یک کمپوننت نمایش فایل استفاده می کنم و در قسمتی از اون فایلهای شاخه های پایینتر رو می خونم.
ولی هنگام خوندن فایلها با پیغام خطا مواجه می شم.این کد خواندن فایلهاست :
Procedure TForm1.ReadFiles();
Var
I,J:Integer;
F: file of Byte;
ButesNo: Longint;
Buf: Array [1..65000] Of Char;
FileName,S:String;
Begin
PCNo:=0;
PCRefNo:=0;
DirList.Directory:=ExtractFileDir(Application.ExeN ame);
For I:=DirList.ItemIndex+1 to DirList.Count-1 do
Begin
FileList.Directory:=DirList.Directory+'\'+DirList. Items[i];
FileList.Refresh;
For J:=0 to FileList.Count-1 do
Begin
FileName:=FileList.Directory+'\'+FileList.Items[J];
AssignFile(F,FileName);
Reset(F);
Seek(F,0);
BlockRead(F,Buf,ButesNo);
S:=Buf;
GetFilePCs(S,FileName);
End;
End;
End;
تو خط BlockRead ایراد می گیره!
این هم خطا: