Lập trình bằng Turbo Pascal part 5

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, 'Nguyen.Dat')...