文字列を16進数に変換するには？ (ID:35343)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Delphi7ではもっと便利な関数がありました。

ヘルプで、BinToHex、HexToBinを調べてみてください。

procedure TForm1.Button3Click(Sender: TObject);
var
  S1: String;
  S2: String;
  i: Integer;

dd: Integer;
  ds: Cardinal;
  de: Cardinal;
begin
  ds := GetTickCount;     //デバッグ用：処理時間計測開始
  for dd := 1 to 2000 do  //デバッグ用：繰り返し実行しないと差がわからないので
  begin
    //変数の初期化
    S1 := '123あいう亜意卯';
    S2 := '';
    SetLength(S2, Length(S1) * 2);
    BinToHex(PCHAR(S1), PCHAR(S2), Length(S1));
  end;
  Edit1.Text := S2;//StrPas(PCHAR(S2));
  //以下、処理時間計測用
  de := GetTickCount;
  Memo1.Lines.Add('Test1:' + IntToStr(de - ds) + 'ms');
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  S1: String;
  S2: String;
  i: Integer;

dd: Integer;
  ds: Cardinal;
  de: Cardinal;
begin
  ds := GetTickCount;     //デバッグ用：処理時間計測開始
  for dd := 1 to 2000 do  //デバッグ用：繰り返し実行しないと差がわからないので
  begin
    //変数の初期化
    S1 := Edit1.Text;
    S2 := '';
    SetLength(S2, Length(S1) * 2);
    HexToBin(PCHAR(S1), PCHAR(S2), Length(S1) div 2);
  end;
  Edit2.Text := S2;//StrPas(PCHAR(S2));
  //以下、処理時間計測用
  de := GetTickCount;
  Memo1.Lines.Add('Test1:' + IntToStr(de - ds) + 'ms');
end;

←解決時は質問者本人がここをチェックしてください。

戻る