Проблемы с кодировкой UTF8

[fets]

Сообщение от Terikon

Но если делать так

begin
Edt1.Text:=Edt4.Text; \\ в Edit4 пишу #1099
Edt2.Text:=UTF8Decode(Edt1.Text);
end;

То в ответ получаю текст из Edt4 (#1099) тоесть не перекодированный

В этом случае оптимальна следующая функция (долго мучился... пока сам не написал, может коряво, но работает на УРА ):

PHP код:

function NormSTR(st : AnsiString ) : AnsiString;
var
  i     : integer;
  sa    : AnsiString;
  st2   : string;
  s,s1  : AnsiString;

begin
  sa := '';
  i := 1;

  while I <= Length(st) do begin
    s := Copy(st, i, 1);
    if s = '#' then begin
      st2 := Copy(st, i + 1, i + 3);
      s1 := Chr(HexToInt(st2));
      sa := sa + s1;
      Delete(st, i,i + 4);
    end
    else begin
      sa := sa + s;
      Delete(st,i,1);
    end;
  end;
  Result := sa;
end; 


Теперь уажаемый Terikon Ваш код будет следующий:

begin
Edt1.Text:=Edt4.Text; \\ в Edit4 пишу #1099
Edt2.Text:=NormSTR(Edt1.Text);
end;

С уважением, Юрий.