안녕하세요.

이병협입니다.



답변은 처음하는 것입니다.



예전에 제가 사용한 모듈인데 충분한 테스트는 되지 않은 것입니다.



도움이 되었으면 좋겠군요



1바이트 2바이트가 혼용된 스트링을 모두 2바이트문제로 바꾸는 것입니다.



function one2two(_string:string): string;

var

S,S2: string;

C: CHAR;

I,K: INTEGER;

begin

S := _string;

S2 := '';

K := LENGTH(S);

if k > 1 then

begin

I := 1;

WHILE I <= K DO

BEGIN

C := S[I];

IF ((Integer(C) and Integer($80)) = Integer($80)) THEN

BEGIN

S2 := S2 + C;

INC(I);

C := S[I];

END

ELSE

BEGIN

if ord(c) = 32 then

begin

S2 := S2 + CHR(161);

C := chr(161);

end

else

begin

S2 := S2 + CHR(163);

C := CHR(Ord(C) + 128);

end;

END;

S2 := S2 + C;

INC(I);

END;

end;

result := S2;

end;



담배연기 wrote:

> 안녕하세요.

> 도움이 필요해요...

>

> 반각문자로된 문자열을 전각문자로 변환하는 방법을 부탁드립니다.

>

> 단지, 입력시의 변환이 아니고요.

> 특정문자열(BLANK 도 포함된)을 변환하는 방법이고..

>

>