تبدیل کد اسکی به یونیکد

[The.Ghost]

سلام:
چه شکلی میشه کد اسکی را به کد یونیکد تبدیل کرد.
لطفا اگر الگوریتم اش را بنویسید ممنون میشم.

[lord_viper]

این یه نمونه به دلفی هست البته از دلفی 2009 به بعد به طور مستقیم از یونیکد پشتیبانی میشه

کد:

var Test,Test1:PWideChar;
    i : integer;
    sm  : string;

begin
  Test := AllocMem(length(s)*2);
  try
    Test1:=StringToWideChar(s,Test,length(s)*2);
    result := '';
    sm := '';
    for i := 0 to Length(Test1) do begin
      //Result := Result +
      sm := sm + ' ' + inttostr(ord(test1[i]));
    end;
    WriteToLog('Test=' + sm);
  finally
    // Test1 wird hierdurch auch ungültig
    FreeMem(Test,length(s)*2);
  end;