تبديل كد هگز به متن

[raeisi_15494]

دوستان سلام
كد زير يك رشته را به هگز تبديل ميكنه
چطور ميتوان كد را دوباره به متن اوليه تبديل كرد

procedure TForm6.Button1Click(Sender: TObject);
var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption :=
Label1.Caption +
SysUtils.IntToHex(Byte(Edit1.Text[i]),4);
// RegisterDeviceNotificatio
except
Beep;
end;
end;
end;

[mofrad]

سلام

function StringToHex(S: String): String;
var I: Integer;
begin
Result:= '';
for I := 1 to length (S) do
Result:= Result+IntToHex(ord(S[i]),2);
end

اینم بالعکس:


function HexToString(H: String): String;
var I: Integer;
begin
Result:= '';
for I := 1 to length (H) div 2 do
Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));
end

[raeisi_15494]

سلام
حروف فارسي رو چطور بايد برگرداند