var
i : integer;
TempStr : String;
begin
TempStr := '우주선';
edit1.Text := '';
for i := 1 to Length(TempStr) do
begin
Edit1.Text := Edit1.Text + Format('%%%x', [integer(Tempstr[i])]);
end;
end;
야후에서 검색을 할 때 검색어를 '우주선' 이라고 주면 주소줄에 이렇게 나옵니다. http://kr.search.yahoo.com/search?jy=all&p=%BF%EC%C1%D6%BC%B1 즉, 우주선이 %BF%EC%C1%D6%BC%B1 로 코드가 유니코드로 변환된 것 같은데 어떤 과정을...
하얀까마귀
•
2002.08.25 11:49
안녕하세요 하얀까마귀 입니다.
넘 어렵게 생각하신것 같네요..
그냥 간단한겁니다.
var
&nb...
유성욱
•
2002.08.26 08:58
^^ 감사합니다.
제가 초보라서 한가지만 더 여쭤볼께요
역변환은 어떻게 하죠.
어떤 함수...
넘 어렵게 생각하신것 같네요..
그냥 간단한겁니다.
var
i : integer;
TempStr : String;
begin
TempStr := '우주선';
edit1.Text := '';
for i := 1 to Length(TempStr) do
begin
Edit1.Text := Edit1.Text + Format('%%%x', [integer(Tempstr[i])]);
end;
end;
이렇게만 하시면 말씀하신 코드가 나올껍니다.
물론 반대도 마찬가지고..
그럼 즐거운시간 되세요.