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 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 를 넣으니까 두 배 정도 길게 나오는데 어떤 의미인지 모르겠네요.

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

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 를 넣으니까 두 배 정도 길게 나오는데 어떤 의미인지 모르겠네요.

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