تبدیل اسکی به هگز

[omidan321]

سلام من یه رشته اسکی دارم مث رشته زیر :::::>>> I‘¼
از این قطعه کد معادل هگز گرفتم شده این رشته ::::: >>> 0x10 0x49 0x91 0xBC 0x16
حالا میخام با دلفی تابعی داشته باشم تا کد اسکی رو به هگز تبدیل کنه

منتظر نظرات اساتید گرامی هستم .

[یوسف زالی]

سلام.
IntToHex رو به همراه تبدیل به کار ببر.


IntToHex(Ord(Ch), 2)

[omidan321]

این کدی که جناب You-see دادید کار نمیکنه ( البته تو این مورد)
این قطعه کدی است که من همین الان ازش ج گرفتم

function StringtoHex(Data: string): string;
var
i, i2: Integer;
s: string;
begin
i2 := 1;
for i := 1 to Length(Data) do
begin
Inc(i2);
if i2 = 2 then
begin
s := s + ' ';
i2 := 1;
end;
s := s + IntToHex(Ord(Data[i]), 2);
end;
Result := s;
end;

[یوسف زالی]

IntToHex(Ord(Data[i]), 2);

عزیزم من هم همین رو گفتم.
باید دقت می کردید به این که من برای یک کاراکتر گفتم..