Chủ đề này có 3 trả lời

[lyphuc2008]

Mình mới nghiên cứu về kiểu File trong pascal nhưng làm hoài nó không đọc được file. Lúc thì báo lỗi không tìm thấy file, lúc thì nó chạy màn hình đen thui rồi treo pascal luôn.

Đoạn chương trình như sau:

(file FTEXT.INP mình đã lưu trong đĩa D, file này chứa 2 dòng:

                                                                        dòng 1: Mua xuan

                                                                         dòng 2: Nang vang)

 

program doc_file_text;

var

   f:text;

   a,b: string;

begin

     assign(f,'D:\FTEXT.INP');

     reset(f);

     while not eof(f) do

     begin

          read(f,a);

          read(f,b);

     end;

     write(a,b);

     readln

end.

[marcoreus101]

đóng file chưa bạn , dùng close(f) đó

[lyphuc2008]

file này được tạo bằng notepad và lưu dưới dạng .INF, file này lưu trữ trong đĩa D, truy cập vài file này đấy bạn.

Cảm ơn sự quan tâm của bạn.

[lyphuc2008]

Hi hi...đã tìm ra cách giải quyết rồi.