Q&A

  • Unicode 로 된 Text 를 한줄로 만드는 방법
메모 콤포넌트를 이용하여, 일반적인 Text 를 처리하고 있습니다. (아스키코드..)
그리고 저의 목적상 메모 콤포넌트에서의 여러줄의 텍스트를  한줄로 만들어 사용하고 있는데..

이번에 Unicode 용 콤포넌트를 구입하여 사용하고 있습니다만.. (TntUnicode..)
제가 기존에 Text 를 한줄로 만들었던 방법을 사용하면.. Unicode 글자를 인식을 못하게 되고
?? 문자들이 많이 보이게 됩니다.

아래는 제가 기존에 사용하던 방법인데 (주로 Enter key code 삭제... ), 유니코드 문자를
사용할때는 어떤 방법으로 할수 있는지 알고 싶습니다.


function MakeOneLineText(TextStr:widestring):widestring;
var
   Temp : widestring;
begin

    Temp :=TextStr;

    Temp :=StringReplace( Temp, #13+#10, #32, [rfReplaceAll] );
    Temp :=StringReplace( Temp, #32+#32, #32, [rfReplaceAll] );

     MakeOneLineText := Temp;

end;

상기의 TextStr 에 Memo.text 를 집어 넣어 사용하고 있었습니다. Unicode 에서는
어떻게 바꾸어야 되는지....  알려주시면 고맙겠습니다//
1  COMMENTS
  • Profile
    이정욱 2007.12.14 22:55
    StringReplace 대신 Tnt_WideStringReplace 를 사용하세요. TntSysUtils 유닛에 포함되어있습니다 ^^