اشکال در تبدیل هگز

[joker]

سلام
نسخه دلفی xe5 دارم استفاده میکنم.
یک تابع دارم برای تبدیل

function String2Hex(const Buffer: Ansistring): string;

begin

  SetLength(result, 2*Length(Buffer));

  BinToHex(@Buffer[1], PWideChar(@result[1]), Length(Buffer));

end;

var
S:STRING;

کارکرد تابع بی مشکل هست تا زمانی که به کد $fd برنخورده !!! اینو موقع تبدیل به 3F تبدیل میکنه ولی برای بقیه موارد کارکردش بدون اشکال هست... مغزم دیگه کار نمیده :(

تست

S :=String2Hex(chr($fd));

showmessage(S);

کسی میدونه چطوری باید حلش کنم ؟
چطوری و رو چه حساب داره این خطا پیش میاد آخه ؟ :(

[loo30fer]

سلام
میتونید از این تابع استفاده کنید:

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;