Viết Tiếng Việt trong Pascal không dùng TCVN và VietRes

Bạn viết cả thư viện vnfont và vncrt à? Bạn đã thử test trên các máy khác chưa?

Code VNFont thì nhanh mà code VNCrt khó quá.
Thư viện Crt cũ của pascal không tương thích nên mình đành tạo thêm 1 thư viện VNCrt mới, dùng winAPI chèn vào.
Test rồi bạn, nhưng còn một vấn đề khác rắc rối là phải tự chỉnh font sang Consolas.
Bạn có cách nào để tự động set font cho cửa sổ Cmd không giúp mk với.

Hình như có cách nạp theme cho cmd, mình cũng không nhớ lắm.

Xin hỏi chủ topic là dùng tiếng Việt trong Pascal để hiển thị ở cửa sổ console thì mục đích chính là gì? Để thử nghiệm khả năng viết code hay nó có ích gì trong thực tế?

Bởi vì thực sự, hầu hết bây giờ nếu ở cửa sổ text, phục vụ cho học lập trình ban đầu không cần thiết phải có tiếng Việt, viết ứng dụng dạng text-based hầu như hiện nay không ai đi hướng đó nữa.

Do đó, tốt hơn hết là chủ topic nên viết thư viện cho Delphi hoặc Pascal nào đó chạy được trên Windows / đa nền sẽ nhiều người sử dụng hơn.

Delphi thư viện của nó cũng rất đầy đủ rồi, bản thân nó đã hỗ trợ unicode nên viết thư viện tiếng việt cho nó là thừa.
Mình làm thư viện này chỉ để vui thôi, nhằm nâng cao hứng thú cho các bạn sinh viên vẫn còn đang học Pascal trong nhà trường. Thấy nhiều bạn search google tìm cách viết tiếng việt cho pascal mà cũng tội vì mấy thư viện trước đó cùi bắp, hiển thị chẳng ra gì, nào là phải full screen vs hiển thị không đủ chữ (do chỉ xài font 1 byte)
Chứ bây giờ ai lại làm ứng dụng với pascal cổ điển trên text, chán chết.

Bạn xem thử code bên này, đây là code C++ để đổi font cho cmd, nhưng mà đổi này không tạm thời, nó đổi trực tiếp vào config, cho nên tắt app đi thì font vẫn là Consolas.

Mình dùng "Gõ Tiếng Việt" viết Tiếng Việt bình thường mà ta [image] Bạn thử cái này xem (Lưu ý là bạn phải dùng wcin và wcout luôn chứ không dùng bình thường được nữa, và cái này dĩ nhiên là Windows-Only và máy phải có Consolas): #include <iostream> #include <io.h> #include <fcntl.h> #include <string> #include <windows.h> int main() { _setmode(_fileno(stdin), _O_U16TEXT); _setmode(_fileno(stdout), _O_U16TEXT); SetConsoleTitleW(L"Việt Nam Vô Địch!"); HANDLE hdlC…

Thanks bạn, mình làm đc rồi

nos khong toi uy cho lam, code nhin hoi roi.

Viết có dấu giúp mình đi bạn, nhìn khó đọc quá

Bạn ơi bạn có thể update cái TVPascal này lên cho bản Free Pascal 3.0.4 không? Hi vọng bạn có thể update cho nó có thể sử dụng trên bản Free Pascal 3.0.4. Xin cảm ơn