Yanghn Notes

          BlogJava 首頁 新隨筆 聯(lián)系 聚合 管理
            10 Posts :: 10 Stories :: 2 Comments :: 0 Trackbacks

          常用鏈接

          留言簿

          隨筆分類

          隨筆檔案

          文章分類

          文章檔案

          搜索

          最新評論

          閱讀排行榜

          procedure FileCopy(const FileFrom, FileTo: string);
          var
            FromF,ToF: file;
            NumRead,NumWritten: Integer;
            Buffer: array[1..2048] of Byte;
          begin
            AssignFile(FromF, FileFrom);
            Reset(FromF, 1);
            AssignFile(ToF, FileTo);
            Rewrite(ToF, 1);
          
            repeat
              BlockRead(FromF, Buffer, SizeOf(Buffer), NumRead);
              BlockWrite(ToF, Buffer, NumRead, NumWritten);
            until (NumRead = 0) or (NumWritten <> NumRead);
          
            CloseFile(FromF);
            CloseFile(ToF);
          end;
          posted on 2010-05-10 10:05 小海 閱讀(133) 評論(0)  編輯  收藏

          只有注冊用戶登錄后才能發(fā)表評論。


          網(wǎng)站導(dǎo)航:
           
          主站蜘蛛池模板: 天台县| 通河县| 土默特左旗| 汉沽区| 揭西县| 牙克石市| 周口市| 潮州市| 犍为县| 大姚县| 喀什市| 乌鲁木齐市| 定兴县| 金坛市| 南京市| 如皋市| 广灵县| 南和县| 陕西省| 东明县| 探索| 双柏县| 聊城市| 沽源县| 株洲市| 绥德县| 临桂县| 彭水| 阳新县| 竹北市| 应城市| 日喀则市| 肥城市| 金沙县| 阿拉善右旗| 孟津县| 东城区| 河西区| 车致| 九龙城区| 阜城县|