fork(1) download
copy 
  1. program ideone;
  2. var 
  3.   s, s1: String;
  4.   i, len2 : integer;
  5.   ch : Char;
  6. begin
  7.   s := 'Test Проблема с UTF8';
  8.  
  9.   len2 := Length(UTF8ToAnsi(s)); 
  10.   WriteLn('len = ', Length(s), ' len2 = ', len2);
  11.   for i:=1 to length(s) div 2 do begin
  12.     Write(s[(i-1)*2+1]+s[(i-1)*2+2])
  13.   end;
  14.   WriteLn;
  15.   for i:=1 to length(s) div 2 do begin
  16.     Write(Ord(s[(i-1)*2+1]), ' ', Ord(s[(i-1)*2+2]), ' ')
  17.   end;
  18.  
  19. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
len = 29 len2 = 20
Test Проблема с UTF
84 101 115 116 32 208 159 209 128 208 190 208 177 208 187 208 181 208 188 208 176 32 209 129 32 85 84 70
https://ideone.com/KXvVRh
language:
Pascal (fpc 3.0.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!