掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列操作 (ID:7458)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
pentium200MHz くらいの Win98 で 79KB のファイルで試しましたがあっと いう間です。 const HexStr:string = '0123456789ABCDEF'; function ByteToHexStr(const value:Byte):string; begin SetLength(result,3); result[1] := HexStr[value shr 4 +1]; result[2] := HexStr[value and $F +1]; result[3] := ' '; end; procedure TForm1.Button1Click(Sender: TObject); var s:string; ms:TMemoryStream; p:PByte; i:integer; begin ms := TMemoryStream.Create; try ms.LoadFromFile('D:\test.jpg'); p := ms.Memory; SetLength(s,ms.Size*3); for i := 0 to ms.Size-1 do begin Move(PChar(ByteToHexStr(p^))^,s[i*3+1],3); Inc(p); end; RichEdit1.Text := s; finally ms.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.