허진 wrote:

> 제가 어제 EDIT박스로 IP를 넣으려고 한다니까

>

> 마스크에디트를 사용하시라고 하셔서 해보는데...

>

> 문제가 생겼습니다.

>

> IP가 최대 3자리니까

>

> 000.000.000.000;0

>

> 으로 마스크를 주었습니다.

>

> 그러면 다음과 같은 IP를 넣으면...

>

> 1 . 1 .1 .1 을 넣으면 빈 공란때문에 에러가 납니다.

>

> 그런디...

>

> 이것을 1.1.1.1로 만들려면 어떻게 합니까

>

> Trim을 사용하시라고 하는데

>

> 앞뒤는 Trim을 사용한다 치고

>

> 가운데는 어떻게 처리해야 하지요....

>

> 흠... 그리고 도트도 이동을 해야 할텐데

>

> 어떻게 하지요.

>

> 알려주세요

>

> T T



Trim 은 문자열의 좌우 공백을 제거하므로

문자열의 중간에 있는 공백은 직접 제거해 주셔야 합니다



// SearchAndReplace('1 . 1 .1 .1', ' ', '' ) 처럼요...



function SearchAndReplace(sSrc, sLookFor, sReplaceWith: string ): string;

var

nPos,

nLenLookFor : integer;

begin

nPos := Pos(sLookFor, sSrc);

nLenLookFor := Length(sLookFor);

while(nPos > 0)do

begin

Delete( sSrc, nPos, nLenLookFor );

Insert( sReplaceWith, sSrc, nPos );

nPos := Pos( sLookFor, sSrc );

end;

Result := sSrc;

end;