Tin họC ĐẠi cưƠNG


 Hàm EOF(Var F: Text): Boolean; Hàm trả về giá trị False khi cửa sổ tệp chưa đến cuối tệp, ngược lại, cho giá trị True (hàm dùng để kiểm tra đã đọc hết tệp văn bản chưa)



tải về 228.5 Kb.
trang11/19
Chuyển đổi dữ liệu28.05.2024
Kích228.5 Kb.
#57772
1   ...   7   8   9   10   11   12   13   14   ...   19
On tap Pascal nang cao

Hàm EOF(Var F: Text): Boolean; Hàm trả về giá trị False khi cửa sổ tệp chưa đến cuối tệp, ngược lại, cho giá trị True (hàm dùng để kiểm tra đã đọc hết tệp văn bản chưa).




Hàm EOLN(Var F: Text): Boolean; Hàm trả về giá trị False khi cửa sổ tệp chưa đến điểm cuối dòng hoặc cuối tệp, ngược lại, cho giá trị True. Hàm này thường sử dụng để kiểm tra xem đã đọc đến cuối dòng chưa. Chẳng hạn:

While not EOLN(F) Do ...





  • Khai báo biến tệp văn bản

VAR

BienTep : Text;

trong đó BienTep là một từ để xác định tên biến tệp, Text là từ chuẩn của kiểu tệp văn bản (xem VD 9.1).





  • Ghi vào tệp văn bản

Có thể ghi các giá trị kiểu Integer, Real, Boolean, String vào tệp văn bản bằng lệnh WRITE hoặc WRITELN.




WRITE (BienTep, bt1, ... , btN); (1)

WRITELN(BienTep, bt1, ... , btN); (2)

WRITELN(BienTep); (3)


Lệnh (1): Ghi giá trị các biểu thức bt1, ... , btN có kiểu: nguyên, thực, ký tự, xâu, logic vào BienTep.




Lệnh (2): Tương tự như (1) nhưng thêm dấu hiệu hết dòng sau các giá trị của bt1, ... , btN.




Lệnh (3): ghi dấu hiệu hết dòng vào tệp.




Ghi chú: Các lệnh (1), (2) có thể viết có định dạng (quy cách) như viết ra màn hình.




Chẳng hạn:

WRITE(f, 'Pascal': 20, 1509 + 20.06: 10: 1);




VD 9.10 Lập trình tạo tệp văn bản TP70.TXT với nội dung như sau:




**********************************************************************

* *

* Turbo Pascal Version 7.0 *

* *

* Copyright (c) 1989, 92 by Borland International, Inc. *

* *

**********************************************************************


1   ...   7   8   9   10   11   12   13   14   ...   19




Cơ sở dữ liệu được bảo vệ bởi bản quyền ©hocday.com 2024
được sử dụng cho việc quản lý

    Quê hương