LËp tr×nh b»ng Turbo Pascal var Gd, Gm: integer; { Gd = Graphic Device } begin Gd:= detect; { Gm = Graphic Mode } InitGraph(Gd, Gm,' ®−êng dÉn \BGI'); if graphresult grOk then begin write ( 'lçi khëi t¹o ®å ho¹'); halt(1); end; end; Gi¶I thÝch ý nghÜa. Cc tham sè trong thñ tôc InitGraph: Gd, Gm lμ hai tham biÕn, nhËn cc gi trÞ lμ cc h»ng sè nguyªn, ®−îc ®Þnh nghÜa trong Unit Graph. Gd, Gm cã thÓ nhËn cc gi trÞ nμo vμ ý nghÜa cña chCác tham số trong thủ tục InitGraph: Gd, Gm là hai tham. | Lập trình bằng Turbo Pascal var Gd Gm integer Gd Graphic Device begin Gd detect Gm Graphic Mode InitGraph Gd Gm đường dẫn BGI if graphresult grOk then begin write lỗi khởi tạo đồ hoạ halt 1 end end Giải thích ý nghĩa. Các tham số trong thủ tục InitGraph Gd Gm là hai tham biến nhận các giá trị là các hằng số nguyên được định nghĩa trong Unit Graph. Gd Gm có thể nhận các giá trị nào và ý nghĩa của chúng có thể tham khảo trong Unit Graph. Tham số đường dẫn BGI phải thay bằng đường dẫn cụ thể đến thư mục BGI trong máy của mình. Có thể để cho Turbo Pascal tự phát hiên vỉ màn hình và chọn chế độ đổ họa thích hợp nhất. Đó là cách khởi tạo tự động bằng cách đặt Gd Detect như trong ví dụ trên. Lúc này không cần gán giá trị cho Gm. Trong trường hợp nắm vững thiết bị màn hình hiên có và các chế độ đổ hoạ tương ứng ta có thể gán trực tiếp giá trị cho Gd Gm. Ví dụ Gd VGA Gm VGAHi Initgraph Gd Gm C TP BGI . Lưu ý không được viết trực tiếp Initgraph VGA VGAHi C TP BGF Như thế sai cú pháp vì các Gd Gm là tham biến chứ không phải tham trị. Sau khi gọi thủ tục khởi tạo đổ hoạ cần kiểm tra kết quả xem viêc khởi tạo có thành công hay không thông qua gọi hàm GraphResult. GraphResult là hàm có sẵn trong Unit Graph. GraphResult trả về kết quả là một số nguyên. Đó là mã lỗi khởi tạo đổ hoạ. Bảng sau đây cho biết giá trị và ý nghĩa của các mã lỗi đổ hoạ. Giá trị số Tên hằng Y nghĩa 0 grOk thành công -1 grNoInitgraph chưa khởi tạo được -2 grNotDetected không có phần cứng -3 grFileNotFound không có các têp điều khiẻn đổ hoạ. Nguyễn Đình Hoá Viên CNTT - ĐHQG Hà nội 217 Lập trình bằng Turbo Pascal Đóng thủ tục đồ hoạ Dùng thủ tục chuẩn CloseGraph. Thủ tục CloseGraph không có tham số. CloseGraph Tác dụng - Khôi phục lại chế độ hiển thị ban đầu của màn hình trước khi gọi khởi tạo đổ hoạ - Giải phóng bộ nhớ đã cấp trên heap làm vùng nhớ đêm đổ hoạ - Giải phóng vùng nhớ chứa các trình điều khiển thiết bị các font chữ nếu đã xin cấp phát thông qua sử dụng các thủ tục GraphGetMem .
