Ana Sayfa Keşfet Yardım
Giriş Yap
pascal
/
fpc
şunun yansıması https://gitlab.com/freepascal.org/fpc/source.git
2
0
Çatalla 0
Dosyalar Sorunlar 0 Wiki
Ağaç: 01d93b61c3
Dallar Biçim İmleri
fpc
/
tests
/
webtbs
/
tw28964.pp

tw28964.pp 106 B
Geçmiş Ham

123456789 
  1. { %recompile }
    2. 

  2. 

  3. uses
    4. 

  4.   uw28964;
    5. 

  5. 

  6. begin
    7. 

  7.   if stringcodepage(externalconst)<>CP_UTF8 then
    8. 

  8.     halt(1);
    9. 

  9. end.
    10.