Если не сложно перенеси пожалуйсто.
решил пока вот так:
| Код |
function GetUN(UniNum: string): string;
var
s : string;
begin
s := UniNum;
Delete(s, 1, 2);
s := Chr(StrToInt('$' + s) - 848);
Result := s;
end;
function GetRus(UniText:widestring):widestring;
var
i: integer;
s, w: string;
begin
s := UniText;
if pos('\u', s) = 0 then
begin
Result := s;
Exit;
end;
while pos('\u', s) > 0 do
begin
if pos('\u', s) = 1 then
begin
w := w + GetUn(Copy(s, pos('\u', s), 6));
Delete(s, pos('\u', s), 6);
end else
begin
w := w + Copy(s, 1, 1);
Delete(s, 1, 1);
end;
end;
if Length(s) > 0 then w := w + s;
Result := w;
end;
|
но если есть вариант лучше хотелось бы знать
|