|
function Str2UTF8(s: string):string;
var i: integer; a : string;
begin
a:='';
for i:= 0 to Length(s) do
if GetChar(s, i) > '~' then
a:= a + Chr(Ord(GetChar(s, i)) - 64432)
else
a:= a + GetChar(s, i);
Str2UTF8:= Copy(a, 0, Length(a)-1);
end;
Работает корректно при чтении из ресурсов. Где сам взял не помню. При чтении из файловой системы телефона нужно брать unsigned byte.
PS: Как тут зарегистрироваться? Эти ваши секретные картинки ни в каком браузере не отображаются!
|