cpall.pas 2.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. {$IFNDEF FPC_DOTTEDUNITS}
  2. unit cpall;
  3. {$ENDIF FPC_DOTTEDUNITS}
  4. interface
  5. {$IFDEF FPC_DOTTEDUNITS}
  6. uses
  7. { cyrillic code pages }
  8. System.CodePages.CP1251,System.CodePages.CP855,System.CodePages.CP866,System.CodePages.CP8859_5,System.CodePages.CP3021,System.CodePages.CPkoi8_r,System.CodePages.CPkoi8_u,
  9. { greek code pages }
  10. System.CodePages.CP1253,System.CodePages.CP737,System.CodePages.CP869,System.CodePages.CP8859_7,
  11. { other code pages }
  12. System.CodePages.CP8859_1,System.CodePages.CP850,System.CodePages.CP437,System.CodePages.CP1252,System.CodePages.CP646,System.CodePages.CP775,
  13. System.CodePages.CP874,System.CodePages.CP856,System.CodePages.CP857,System.CodePages.CP860,System.CodePages.CP861,System.CodePages.CP862,System.CodePages.CP863,System.CodePages.CP864,System.CodePages.CP865,
  14. {$ifndef cpu16}
  15. { these are too big for a 16-bit System.CPU }
  16. { cp932,cp936,cp949,cp950, -> to rtl-unicode}
  17. {$endif not cpu16}
  18. System.CodePages.CP1250,System.CodePages.CP1254,System.CodePages.CP1255,System.CodePages.CP1256,System.CodePages.CP1257,System.CodePages.CP1258,System.CodePages.CP852,System.CodePages.CP8859_2,System.CodePages.CP8859_3,System.CodePages.CP8859_4,
  19. System.CodePages.CP8859_6,System.CodePages.CP8859_8,System.CodePages.CP8859_9,System.CodePages.CP8859_10,System.CodePages.CP8859_11,System.CodePages.CP8859_13,System.CodePages.CP8859_14,System.CodePages.CP8859_15,
  20. System.CodePages.CP8859_16;
  21. {$ELSE FPC_DOTTEDUNITS}
  22. uses
  23. { cyrillic code pages }
  24. cp1251,cp855,cp866,cp8859_5,cp3021,cpkoi8_r,cpkoi8_u,
  25. { greek code pages }
  26. cp1253,cp737,cp869,cp8859_7,
  27. { other code pages }
  28. cp8859_1,cp850,cp437,cp1252,cp646,cp775,
  29. cp874,cp856,cp857,cp860,cp861,cp862,cp863,cp864,cp865,
  30. {$ifndef cpu16}
  31. { these are too big for a 16-bit CPU }
  32. { cp932,cp936,cp949,cp950, -> to rtl-unicode}
  33. {$endif not cpu16}
  34. cp1250,cp1254,cp1255,cp1256,cp1257,cp1258,cp852,cp8859_2,cp8859_3,cp8859_4,
  35. cp8859_6,cp8859_8,cp8859_9,cp8859_10,cp8859_11,cp8859_13,cp8859_14,cp8859_15,
  36. cp8859_16;
  37. {$ENDIF FPC_DOTTEDUNITS}
  38. implementation
  39. end.