Assign (F, 'Nguyen .Dat'); Sz:= FileSize (F) ; sẽ nhận được Sz = 100. Ví dụ: L−u ý: Có thể dùng hμm nμy kết hợp với thủ tục Seek để viết nối thêm vào cuối một tệp. (Tác dụng giống như lệnh Append vào cuối tệp kiểu văn bản) Seek( biến tệp , FileSize( biến tệp )) ; Write( biến tệp, biểu thức 1, . , biểu thức n ); - FilePos ( biến tệp ): LongInt; Hàm cho biết vị trí hiện tại của cửa sổ tệp. Phần tử đầu tiên ở vị trí 0. Ví dụ: Assign(F, ''). | Lập trình bằng Turbo Pascal Ví dụ Assign F Nguyen .Dat Sz FileSize F sẽ nhận được Sz 100. Lưu ý Có thể dùng hàm này kết hợp với thủ tục Seek để viết nối thêm vào cuối một têp. Tác dụng giống như lênh Append vào cuối têp kiểu văn bản Seek biến tệp FileSize biến tệp Write biến tệp biểu thức 1 . biểu thức n - FilePos biến tệp LongInt Hàm cho biết vị trí hiên tại của cửa sổ têp. Phần tử đầu tiên ở vị trí 0. Ví dụ Assign F Reset F I FilePos F sẽ cho I 0 - Erase biến tệp Thủ tục xoá têp. Ví dụ Assign F Nguyen .Dat Erase F - Rename biến tệp tên mới Thủ tục đổi tên têp thành tên mới. Tên mới này phải không được trùng với tên các têp đã có trong cùng thư mục. Ví dụ Assign F Nguyen .Dat Rename F So1_100. Int Bầy lỗi khi mỏ tệp. Đặt vấn đề Khi thực hiên thao tác mở têp để đọc ghi có thể bị lỗi nếu - mở têp chưa tổn tại trên đĩa tên sai . - hết chỗ trên đĩa để ghi thêm vào têp. TurboPascal cung cấp chỉ thị để trình biên dịch thêm các mã lênh thực hiên kiểm tra lỗi trong quá trình thực hiên đọc ghi têp mà dưới đây sẽ gọi ngắn gọn là chỉ thị kiểm tra I O. I bật mở viêc kiểm tra I O. Nếu gặp lỗi I O chương trình sẽ báo lỗi và dừng lại. Đây là chế độ mặc định. Nguyễn Đình Hoá Viên CNTT - ĐHQG Hà nội 105 Lập trình bằng Turbo Pascal I - tắt việc kiểm tra I O. Chương trình không dừng dù có lỗi I O. Tuy nhiên nó sẽ bỏ qua treo tạm dừng tất cả các thủ tục vào ra sau đó cho đến khi gặp lời gọi hàm lOResult. lOResult là hàm trả về mã lỗi khi thực hiện các thao tác đọc ghi ra đĩa. Nếu công việc thành công thì mã lỗi là 0. Trái lại mã lỗi là một số khác không. Sử dụng cơ chế kiểm tra I O có thể thực hiện việc bẫy lỗi khi mở tệp nhất là tiến hành mở tệp mới an toàn tránh việc vô tình xoá mất tệp cùng tên khi mở tệp mới để viết vào bằng thủ tục Rewrite. Các bước để mở tệp an toàn. Tắt chế độ kiểm tra và thử mở tệp ra để đọc. Gọi hàm lOResult. Nếu lOResult bằng 0 nghĩa là mở tệp thành công tức là đã có tệp cùng tên. Cần thông báo cho người dùng biết để xử lí nhập .
