1 unit cpall; 2 3 interface 4 5 uses 6 { cyrillic code pages } 7 cp1251,cp855,cp866,cp8859_5,cp3021,cpkoi8_r,cpkoi8_u, 8 { greek code pages } 9 cp1253,cp737,cp869,cp8859_7, 10 { other code pages } 11 cp8859_1,cp850,cp437,cp1252,cp646,cp775, 12 cp874,cp856,cp857,cp860,cp861,cp862,cp863,cp864,cp865, 13 {$ifndef cpu16} 14 { these are too big for a 16-bit CPU } 15 { cp932,cp936,cp949,cp950, -> to rtl-unicode} 16 {$endif not cpu16} 17 cp1250,cp1254,cp1255,cp1256,cp1257,cp1258,cp852,cp8859_2,cp8859_3,cp8859_4, 18 cp8859_6,cp8859_8,cp8859_9,cp8859_10,cp8859_11,cp8859_13,cp8859_14,cp8859_15, 19 cp8859_16; 20 21 22 implementation 23 24 end. 25