Y yangxiao_jiang Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #3 function FSize(FileName: string): LongInt; var F: File; begin AssignFile(F, FileName); reset(F,1); Result := FileSize(F); CloseFile(F); end;
function FSize(FileName: string): LongInt; var F: File; begin AssignFile(F, FileName); reset(F,1); Result := FileSize(F); CloseFile(F); end;
Q quiben Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-19 #4 function FSize(FileName: string): LongInt; var F: File; begin AssignFile(F, FileName); reset(F,1); Result := FileSize(F); CloseFile(F); end;
function FSize(FileName: string): LongInt; var F: File; begin AssignFile(F, FileName); reset(F,1); Result := FileSize(F); CloseFile(F); end;