Kể từ phiên bản 7.3.4, thư viện TCVN cho Pascal đã được tích hợp vào Turbo Pascal để có thể:

• Hiển thị tiếng Việt mã TCVN3 trong chế độ văn bản của Pascal (Turbo Pascal)
• Chuyển đổi kí tự dạng Telex (ví dụ: tieesng Vieejt) và VNI (ví dụ: tie61ng Vie65t) thành tiếng Việt mã TCVN3 bằng cách sử dụng Hàm nhập tiếng Việt (bộ gõ tiếng Việt) kiểu Telex và VNI

Hướng dẫn

Trước hết cần khai báo sử dụng thư viện TCVN bằng cách dùng uses TCVN; Đầu chương trình cần nạp font tiếng Việt bằng thủ tục loadfont; Rồi dùng mã chuyển đổi một chuỗi Telex thành tiếng Việt bằng hàm Telex, chuyển đổi một chuỗi VNI thành tiếng Việt bằng hàm VNI. Lưu ý chỉ cho phép gõ dấu ngay sau nguyên âm chứ không cho phép gõ dấu tự do như Unikey. Trước khi kết thúc chương trình cần gỡ bỏ font tiếng Việt và nạp lại font hệ thống bằng hàm unloadfont.

Ví dụ

Hãy xem và nhập đoạn mã dưới đây vào Turbo Pascal.

// Mau Pascal xuat ra chu viet trong Turbo Pascal

// Ban quyen thuoc ve Thien Hau

program hellovn; { khai bao chuong trinh }

USES tcvn, crt; { khai bao thu vien TCVN de viet chu Tieng Viet }

BEGIN { Dau chuong trinh }

clrscr; { xoa/lam moi man hinh }

loadfont; { nap font chu Tieng Viet }

writeln(telex('Ddaay laf moojt dofng tieesng Vieejt (kieeu telex)')); { Xuat ra dong chu tieng viet duoc viet theo kieu Telex }

writeln(vni('Da6y la2 mo6t do2ng tie61ng vie65t (kie63u VNI)')); { Xuat ra dong chu tieng viet duoc viet theo kieu VNi }

readln; { Dung man hinh cho den khi nhan nut ENTER }

unloadfont; { go nap font chu Tieng Viet }

END. { Het chuong trinh }

Khi đó sẽ ra 2 dòng chữ:

Đây là một dòng tiếng Việt (kiểu Telex)

Đây là một dòng tiếng Việt (kiểu VNI)

Ngoài ra bạn cũng có thể nhập tiếng Việt bằng cách dùng biến và hàm như dưới đây:

Program CTVN2;

USES tcvn;

VAR s:STRING;

BEGIN

loadfont;

writeln(telex('Ddaay laf moojt dofng tieesng Vieejt'));

write(telex('Nhaajp tieesng Vieejt kieeru'),' Telex: ');

s:=readt;

writeln(telex('Chuooxi bajn ddax nhaajp laf:'));

writeln(s);

write(telex('Nhaajp tieesng Vieejt kieeru VNI'));

s:=readv;

writeln(telex('Chuooxi bajn ddax nhaajp laf:'));

writeln(s);

readln;

unloadfont;

END.