Q&A

  • 한글을 hex로 바꾸는 방법은??
한글을 hex로 바꾸는 방법을 알고싶은데요, 좀 갈카주세요.



3  COMMENTS
  • Profile
    kylix 2001.02.23 08:25
    procedure TForm1.Button1Click(Sender: TObject);

    var

    Str, Hex: string;

    I: Integer;

    begin

    Str := '가나다라마바사';

    Hex := '';

    for i := 1 to Length(Str) do

    Hex := Hex + IntToHex(Byte(Str[I]), 2);



    ShowMessage('Hex code is ' + Hex);

    end;



    클마스 wrote:

    > 한글을 hex로 바꾸는 방법을 알고싶은데요, 좀 갈카주세요.

    >

  • Profile
    클마스 2001.02.23 08:43
    kylix wrote:

    > procedure TForm1.Button1Click(Sender: TObject);

    > var

    > Str, Hex: string;

    > I: Integer;

    > begin

    > Str := '가나다라마바사';

    > Hex := '';

    > for i := 1 to Length(Str) do

    > Hex := Hex + IntToHex(Byte(Str[I]), 2);

    >

    > ShowMessage('Hex code is ' + Hex);

    > end;

    >

    > 클마스 wrote:

    > > 한글을 hex로 바꾸는 방법을 알고싶은데요, 좀 갈카주세요.

    > >



    kylix 님 감사합니다.



    그런데 Digit 자리에 2 를 쓰셨는데 뭘 의미하는 것인가요?

    거기에 4 를 넣으니까 두 배 정도 길게 나오는데 어떤 의미인지 모르겠네요.

    죄송하지만 그것도 좀 갈켜주세요^^

  • Profile
    kylix 2001.02.23 21:30
    char는 1바이트를 차지하죠. 1바이트는 $00 ~ $FF까지 그러니까 최대자리수는 2죠....



    Word형이라면 $0000-$FFFF까지 4가 되겠죠...



    클마스 wrote:

    > kylix wrote:

    > > procedure TForm1.Button1Click(Sender: TObject);

    > > var

    > > Str, Hex: string;

    > > I: Integer;

    > > begin

    > > Str := '가나다라마바사';

    > > Hex := '';

    > > for i := 1 to Length(Str) do

    > > Hex := Hex + IntToHex(Byte(Str[I]), 2);

    > >

    > > ShowMessage('Hex code is ' + Hex);

    > > end;

    > >

    > > 클마스 wrote:

    > > > 한글을 hex로 바꾸는 방법을 알고싶은데요, 좀 갈카주세요.

    > > >

    >

    > kylix 님 감사합니다.

    >

    > 그런데 Digit 자리에 2 를 쓰셨는데 뭘 의미하는 것인가요?

    > 거기에 4 를 넣으니까 두 배 정도 길게 나오는데 어떤 의미인지 모르겠네요.

    > 죄송하지만 그것도 좀 갈켜주세요^^