이문환 wrote:

> 한글을 한글자씩 자르고 싶습니다.

> 여기저기 소스는 많은데 제가 그 소스로 응용이 안되네요...

> 여러 고수님들의 도움을........



우선.. 항상 검색을 먼저 해보시구 질문을 올리시라구 말씀드리고 싶네요..

이미 유사한 케이스의 질문들이 올라와 있는 경우가 많거든요..



아래 글 참고하세요..



[검색하시려면 제목, 본문 검색에서 widestring 하시면 많은 정보가... ]



작성자 : 윤유섭 (ysyoon2002@yahoo.co.kr) 조회: 47, 줄수: 35, 분류: Etc.

Re: 한글을 쪼개지 않고 DB에 저장하는 방법

WideString 타입을 이용해보세요



var S : string;

sWide : WideString;

Begin

S := '가나다라1234';

sWide := S;

...

end;



'가나다라1234' 를 WideString 으로 바꿔 COPY명령으로 한문자씩 자르면



가

나

다

라

1

2

3

4

형식으로 한글은 2바이트 영문,숫자는 1바이트로 자를수 있습니다.



zephyr wrote:

>

> 제가하고자하는작업은...

>

> 화면에 입력된 데이타를 255바이트씩 쪼게서 DB에 저장을 하고 싶습니다.

>

> 또한 255바이트째.. 한글바이트가 있을경우 문자가 쪼개지지 않게 처리하구

>

> 싶구요.

>

> 제가 초짜라서 잘 모르겠습니다. 고수님들의 답변부탁드립니다.

>

> 급하거든요....

안녕하세요.

모든 문자가 한글로 되어있다면 2byte씩 자르면 됩니다.



그런데 한글, 영문, 숫자가 혼합되어있다면 아래 코드를 참고하시면 될겁니다.

에러 테스트는 하지 않았습니다.

도움이 되었으면 좋겠군요.

그럼....................



procedure TForm1.Button1Click(Sender: TObject);

var

i, n : integer;

source : string;

cTmp : char;

sTmp : string;

begin

source := '가나ABC다';



n := Length(Source);



i := 1;



while i <= n do begin

sTmp := '';

cTmp := Source[i];



// Double byte char

if ((integer(cTmp) and integer($80)) = integer($80)) then begin

sTmp := cTmp;

Inc(i);

cTmp := Source[i];

end;



sTmp := sTmp + cTmp;



Showmessage(sTmp);



Inc(i);

end;

end;





이문환 wrote:

> 한글을 한글자씩 자르고 싶습니다.

> 여기저기 소스는 많은데 제가 그 소스로 응용이 안되네요...

> 여러 고수님들의 도움을........