تبدیل کدهای unicode به حروف فارسی

[pad_kay]

با سلام
به نظر شما چه طور می شه کدهای به شکل زیر رو به معادلش تبدیل کرد :
البته باید کلیه یونی کد رو ساپورت کنه ا حداقل فارسی (عربی)
\u0635
با تشکر

[arash_ebrahimi_nk]

سلام
اون
u\
رو نمیدونم چیه، ولی در کل یه حرف یونیکد یک Word هست که از دو بایت تشکیل شده و شما میتونید بایت ها رو پشت سر هم بچینید و با کد زیر اون رو تبدیل کنید
مثلاً کلمه "آرش" رو در نظر بگیرید، اگه بایت هاش رو پشت سر هم بچینید به این صورت میشه (به صورت hex):
220631063406
حالا میتونید این اعداد رو در یک متغیر TBytes نگه داری بکنید (مثلا با نام rwB) و بعد از طریق کُد زیر اون رو تبدیل کنید:
S := TEncoding.Unicode.GetString(rwB)

[pad_kay]

با سلام و تشکر از شما عزیز
من در سوال فراموش کردم ورشن دلفی رو بگم و تبدیل رو برای دلفی 7 لازم دارم
اگر امکانش هست راهنمایی کنید
با تشکر

[arash_ebrahimi_nk]

راهنمایی اینکه میتونید یه ورژن لایت از دلفی های جدید رو نصب کنید و کُدهاش رو نگاه کنید.

[یوسف زالی]

u یعنی یونیکد.
راهش اینه که بیایید و هر کدوم از کاراکترها رو جداجدا کنید و دی کد کنید.


function HexChar(Ch: char): Byte;
begin
case UpCase(Ch) of
'0'..'9': Result := Byte(Ch) -Byte('0');
'A'..'F': Result := Byte(Ch) -Byte('A') +10;
end;
end;

function HexWord(Wrd: string): WideChar;
begin
Wrd := UpperCase(Wrd);
Wrd := RightStr('0000' + Wrd, 4);

Result := WideChar(
(HexChar(Wrd[1]) shl 12) +
(HexChar(Wrd[2]) shl 8) +
(HexChar(Wrd[3]) shl 4) +
HexChar(Wrd[4])
);
end;

function UnicodeToStr(s: string): string;
var
lst: TStringList;
i: integer;
begin
lst := TStringList.Create;
lst.Text := StringReplace(s, '\u', #13, [rfReplaceAll, rfIgnoreCase]);
lst.Delete(0);

Result := '';
for i := 0 to lst.Count -1 do
Result := Result + HexWord(lst[i]);

lst.Free;
end;



مثال:


procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := '\uFEB2\u0635';

s := UnicodeToStr(s);

ShowMessage(s);
end;

[saeidsg]

سلام برعکس این هم می شه