• PC World VN - ISSN:1859 - 1817
  • Test Lab Thế Giới Game
  • Tin tức
  • Sản phẩm
  • Công nghệ
  • Kinh Doanh
  • Test Lab
  • Giải trí
  • E-Paper
  • Mua Tạp Chí
Đặt làm trang chủGiới thiệuLiên hệĐặt mua tạp chíQuảng cáo
Tin nước ngoàiTin trong nướcBình luận
Di độngLaptopMáy ảnhMáy tínhHệ điều hànhMáy inĐĩa cứng - USBBo mạch chủCard đồ họaBộ xử lýThành phần máy tínhThiết bị mạngMáy chủĐiện tử - Tiêu dùngPhần mềm Xem thêm...
Công nghệỨng dụngLàm thế nàoAn ninh mạngSống và công nghệÔtô - Xe máy
Quản trịGiải phápNhà nước
Sách & Không gian đọc
Ứng dụng hướng tới SMARTCITY Hồn PC da Laptop Quà Hitech đón xuân
    • PC World VN
    • Hỏi đáp
    • Lập trình
    Thứ Ba, 23/03/2004 11:00 (GMT+7)

    Mục lục
    • »

    Câu hỏi :
    Trong Pascal khi mở 1 file dữ liệu mang thuộc tính Read-Only hoặc 1 file trên ổ đĩa CD bằng lệnh (Assign(f,filename); reset(f)) thì luôn bị báo lỗi và không thể mở file để đọc được (mặc dù đã sử dụng macro dẫn hướng {$I-}).

    Trả lời :

    Rất tiếc là bạn không trình bày chính xác source code của đoạn chương trình Pascal gây lỗi nên chúng tôi không thể trả lời chính xác được. Về nguyên tắc, việc mở file để đọc nội dung của nó luôn thành công bất chấp file đó có thuộc tính Read-Only hay không. Lưu ý là trước khi gọi hàm Reset(f) để mở file, bạn nên thiết lập biến FileMode = READ_ONLY để mở thành công file có thuộc tính Read-Only. Sau đây là 1 chương trình Pascal nhỏ demo cho việc mở 1 file text (đang có thuộc tính Read-Only hay đang nằm trên CDROM), đọc từng byte vào rồi hiển thị ký tự tương ứng của byte đó ra màn hình.

    {Chương trình demo cho việc Reset file Read-Only}

    Program TestReadFile;

    var

     f: File of Byte;

     FileName : String;

     code : Byte;

    begin

     FileName := 'd:\at1ed.txt';

     {$I-}

     Assign(f, FileName);

     FileMode := 0;  { thiết lập chế độ truy xuất Read-Only }

     Reset(f);

     {$I+}

     if(IOResult = 0) then

        {đọc từng byte và hiển thị lên màn hình }

        while (not eof(f)) do begin

           Read(f,code);

           write(chr(code));

        end

     else

        ' nếu có lỗi thì thường là không có file

        writeln('Khong co file ',FileName);

     readln;

    end.

    Chuyên mục: Lập trình
    Các thông tin khác
    • Fix lỗi 200 của Turbo Pascal (02/03/2004 09:56)
    • Dùng Delphi để lập chương trình thu và phát tiếng... (02/02/2004 10:55)
    • Xin hướng dẫn cách làm từ điển, cách lưu hai loại... (02/02/2004 10:54)
    • Lập trình trong Delphi, dùng ListView để hiển thị... (02/02/2004 10:52)
    • Hiện có nhiều chương trình tự động gửi thông tin... (02/02/2004 10:51)
    • Visual C có hàm nào cho biết trong một thư mục có... (02/02/2004 10:50)
    • 1. Khi đóng gói chương trình thì CSDL có thể copy... (02/02/2004 10:49)
    • Trong PC World VN số 4/2003 có đề cập đến các... (02/02/2004 10:45)
    • Hỏi: Xin hướng dẫn cách sử dụng hàm Windows API... (08/01/2004 15:37)
    • Hỏi: Xin hướng dẫn cách thức để 2 chương trình VB... (08/01/2004 15:36)
    Mới nhất
    • Windows 10 cập nhật nhiều tính năng cho doanh nghiệp
    • Vinh danh 77 doanh nghiệp đạt Giải thưởng Chất lượng Quốc gia, Chất lượng châu Á - Thái Bình Dương 2017
    • Saigon Innovation Hub sắp triển khai loạt sản phẩm tư vấn cho startup
    • Công bố cuộc thi Ý tưởng sáng tạo sinh viên năm 2018
    • Giải bóng đá HCA Football Open Cup 2018: Sân chơi của ngành CNTT Thành phố
    PC World Vietnam

  • Chuyên mục hỏi đáp
  • Windows [310]
    Hệ thống [84]
    In ấn [16]
    Internet [58]
    Mạng - truyền thông [137]
    Linux [11]
    Macintosh [2]
    Lập trình [709]
    Ứng dụng văn phòng [181]
    Cơ sở dữ liệu [106]
    Mua gì? Ở đâu? [15]
    Tiện ích [90]
    Game [223]
    Giải pháp cho doanh nghiệp [1]
    Phần cứng [90]
    Multimedia [70]
    Tiếng Việt [85]
    Bảo mật-virus [20]
    ĐTDĐ - PDA [11]
    Khác [131]
ĐỌC NHIỀU TRONG TUẦN
  • Cận cảnh bắp 'nữ hoàng đỏ' đầu tiên tại Việt Nam
  • Nokia 1: bước khởi đầu hoàn hảo
  • Thu nhập hàng trăm triệu đồng với giống bí xanh Nova 209
  • Sáng tạo công nghệ giải quyết vấn đề xã hội: hướng khởi nghiệp bền vững
  • Sử dụng trí tuệ nhân tạo chẩn đoán bệnh võng mạc tiểu đường
  • Huawei Nova 3e: Chụp ảnh đẹp, tuy chưa xuất sắc nhưng xứng đáng trong tầm giá
  • Thiết bị sử dụng chip AI sẽ là hướng chọn mua của người dùng
  • Facebook tăng cường nghiệp vụ quản lý thông tin người dùng
  • WISE Women Innovation Challenge: Nâng bước phụ nữ trên đường khởi nghiệp sáng tạo
  • Phát hiện ung thư nhờ xét nghiệm nước tiểu
Trang chủ| Giới thiệu| Liên hệ| Đặt Mua Tạp Chí| Quảng cáo | Thế Giới Game

© Bản quyền của Tạp chí Thế Giới Vi Tính - PC World VN | Cơ quan chủ quản: Sở Khoa học và Công nghệ TP.HCM
Giấy phép (1) số 196/GP-BVHTT do Bộ Văn hóa Thông tin cấp ngày 27-06-2003
Giấy phép (2) số 202/GP-BC do Bộ Thông tin và Truyền thông - Cục Báo chí cấp ngày 05-05-2008
Tòa soạn: Lầu 5, 79 Trương Định, Phường Bến Thành, Quận 1, TP. HCM - ĐT: (08) 38 257 745